#!usr/bin/perl
use strict;
use warnings;
use Fcntl qw( SEEK_END );
use File::Temp qw( tempfile );

#Creating a temporary html file in /tmp dir
my $tmp = File::Temp->new( UNLINK => 0,
			   SUFFIX => '.html' );

print $tmp "Some data\n";
print "Filename is $tmp\n";

$tmp->seek( 0, SEEK_END );

__END__

$ perl test.pl
Filename is /tmp/VlCSL2Fs39.html
$ cat /tmp/VlCSL2Fs39.html
Some data