#!/usr/bin/perl -w
use strict;
use CGI;
$|=1;
my $buffer;
print "Content-type: text/html\n\n";
print "";
my $req = CGI->new;
my $filename = $req->param("filename");
$filename =~ m/(.*?$CGI::SL)*(.*)(?=$)/;
my $localfilename = "$2";
open(FILE, ">$localfilename") || print "Could not open $localfilename for output: $!
\n";
while (my $bytesread = read($filename,$buffer,1024))
{
print FILE $buffer;
}
close(FILE);
print "File saved as $localfilename (original filename=$filename)
";
print "";
####