Грабля Perl кода my $success = false;