gotham:~# cat p.pl
#!/usr/bin/perl -w
use strict;
$ARGV[0]=$0;
$^I="";
undef $/;
while(<>) { print STDOUT "hello\n" }

gotham:~# perl p.pl
hello
hello
gotham:~#