####
#!/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;