LINE: while (defined($_ = <ARGV>)) {
    @_ = $_;
}
sub BEGIN {
    foreach $_ (%main::) {
        eval '@{$_}=${@_}';
    }
}
{
    print "Just another perl hacker.\n" unless eval "@_";
}