my $filename = make_filename();

my $fh = $q->upload("picture_location");
binmode(fh);  
open (OUT, ">$filename.jpg") || die "Can't open: $!";
while (<$fh>) { print OUT; }
close OUT;