my $file_name = param('photo');

use Data::Dumper;

print Dumper($CGI::Q->{'.tmpfiles'});


##</code><code>##

use CGI qw(:standard);

open(SAVE, ">test.out") or die "Can't open test.out: $!\n";
save_parameters(SAVE);

##</code><code>##

use CGI qw(:standard);

open(SAVE, "test.out") or die "Can't open test.out: $!\n";
restore_parameters(SAVE);

$photo_save_name ="something";
    
my $file_name = param('photo');

# ...