1234567 use Perlmazing;sub main ($) { my $x = shift(); return 0 unless (defined($x) and length($x)); return 1;}
use
Perlmazing;
sub
main ($) {
my
$x
=
shift
();
return
0
unless
(
defined
) and
length
));
1;
}