use File::Temp qw( tempfile );

if ( 0 ) {
    print STDERR "required\n";
#    require FileHandle;
}

my ($fh, $file) = tempfile( UNLINK => 1 );

$fh->getline;