while(<>) {
    print;
}

##</code><code>##

$ perl stdin.pl stdin.pl
$ perl stdin.pl < stdin.pl
$ cat stdin.pl | perl stdin.pl