$ cat p.pl
    #!/opt/perl/bin/perl -w

    use strict;

    $ARGV [0] = $0;
    $^I = "";
    undef $/;

    while (<>) {print STDOUT "Hello\n"}

    __END__
    $ ./p.pl
    Hello
    $