Help for this page

Select Code to Download

Select or download this

open my $INPUT, '<', \"my input\n";
*ARGV = $INPUT;
print <>;