use strict;
use Win32::Process;

sub ErrorReport {
   die Win32::FormatMessage( Win32::GetLastError() );
}

my $tmp = $ENV{'QUERY_STRING'};
my $pid;

print "Content-type: text/html\n\n";

Win32::Process::Create(
   $pid,
   "C:\\Programme\\FTP\\FTP.exe",
   "ftp ftp://$tmp",
   0,
   NORMAL_PRIORITY_CLASS,
   ".")|| ErrorReport();

print 'Erledigt';
print '<script type="text/javascript">window.close()</script>';