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');

# ...