my @set    = ('a' .. 'z', 'A' .. 'Z');
my $length = 8; # Change length if desired       
my $random = join "" => map {$set [rand @set]} 1 .. $length;
my $tmp_file = $random . "." . $$ . ".ext";