$ARGV[0]="test"; $^I=""; undef $/; while(<>) { print STDOUT "hello\n" }