Select Code to Download

#!/usr/bin/perl

...
eval { croak "With a newline\n" }; print $@;

eval { croak "No newline" }; print $@;

With a newline
        eval {...} called at croak.pl line 5
No newline at croak.pl line 7
        eval {...} called at croak.pl line 7