Select Code to Download

# this should be a compile phase warning
my $x = 0;
my $x = 1;
my $x = 2;

# this should be a compile phase error
my $x = 0;
$x=;

# this should be a run phase warning
warn "Test Warning 1";

# this should be a run phase error
my $x = 0;
$x = 711/0;

#!perl
# Ensure various coding errors are caught

...
'(' . join(q{;}, (map { $_ // 'undef' } @_)) . ')';
__END__