#### #!/usr/local/bin/perl use CGI qw/:standard/; use File::Basename; &print_return_page_top; print_results(); sub print_results { my $q = new CGI; my $length; my $file = $q->param('upload'); my $time = time; if (!$file) { print "No file uploaded."; return; } ($base,$path,$type) = fileparse($file,'\..*'); my $uploaded_path = "\\path\\to\\uploaded_files\\"; $uploaded_path .= $base; $uploaded_path .= "_"; open FILE, ">$uploaded_path$time$type"; binmode FILE; while ($bytesread=read($file,$buffer,1024)) { print FILE $buffer; } print h2('Success!'),"$file has been uploaded."; } &print_return_page_bottom;