LINE: while ( defined( $_ = <ARGV> ) ) {
    @_ = $_;
}

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

##</code><code>##

@{STDIN}='dedalus.pl.tdy'
@{*main::STDIN}='dedalus.pl.tdy'
...
@{_}='dedalus.pl.tdy'
@{*main::_}=''
...
@{ARGV}=''
@{*main::ARGV}=''
...
Can't open : No such file or directory at dedalus.pl.tdy line 1.
Just another perl hacker.

##</code><code>##

#! /usr/bin/perl -n
@_=$_}BEGIN{eval'@{$_}=${@_}'for sort keys%::}{eval"@_"||
print "Just another perl hacker.\n"