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