print <<'drom"edary',<<"f#f",<<'=pod',<< ''; #comment
Just another Perl Hacker
drom"edary
#foo
f#f
#bar
=pod
#foo
#too
#you


# is there a comment in the snippet of code below or not??? Blame Abigail 0.0

BEGIN { if ($ARGV [0]) {eval 'sub foo ()  {print}'}
        else           {eval 'sub foo ($) {print}'}
}
$_ = "Just another Perl Hacker\n";
foo /#/;
1;