#### #!/usr/bin/perl use CGI; $file = upload('file'); open(TEMP,">temp.jpg"); print TEMP $file; close(TEMP);