exit EXPR Обрабатывает EXPR и осуществляет немедленный выход с полученной величиной. $ans = <STDIN>; exit 0 if $ans =~ /^[Xx]/;
Если EXPR опущено, то осуществляет выход с нулевым статусом.