use IO::File;
my $fh = IO::File->new_tmpfile;