use strict;
use warnings;
use autodie;

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