#!C:\Perl\bin\perl.exe -w
use CGI;
use Net::FTP;
my $q = new CGI;
my $thefile = $q->param('filename');
$dir = 'S:/Free';
$ftpobj = Net::FTP -> new ("192.168.0.2");
$ftpobj -> login("cms","cm5u53r");
$ftpobj -> binary;
$ftpobj -> put ("$dir\\$thefile");
$ftpobj -> quit;
print "Content-type: text/html\n\n";
print "\n";
print "Uploading Complete";
print "";
print "Uploading Complete
filename: [$filename] thefile: [$thefile]
";
print "";