use FileHandle;
...
my $fh_in = FileHandle->new();
$fh_in = *STDIN{IO};