use CGI qw(:standard);

$photo_save_name ="something";
    
my $file_name = param('photo');
   
if ($file_name !~ /\.jpe?g$/) {
	$error = "You can only upload a picture in JPEG format.";
}
    
open (F, ">$photo_save_name");

while (<$file_name>) {
	print F;
}