use File::Temp;
use strict;
my $fh = File::Temp->new(SUFFIX=>'.txt') or die "File::Temp: $!\n";

# $fh is a file handle.  You can use it like this
print $fh "This is a test\n";

# or as an object
$fh->print("This is a only a test\n");
$fh->write("Testing 1,2,3\n");

# You can rewind and read it
seek $fh, 0, 0 or die "Seek $fh failed: $!\n";
while (<$fh>) {
  print "Guess what I read: $_";
}

# You can also use it as a filename to open it
open ANOTHERFH, "<", $fh or die "Cannot open $fh: $!\n";
while (<ANOTHERFH>) {
  print "ANOTHERFH: $_";
}
[download]