Weblabor

kaptam egy (eddig) megoldatlan feladatot.
van egy oldal, ahol bekér egy fájlt, és azt felmásolja egy ftp oldalra.
eddig működött, de most nem.. :(
a szolgáltató azt mondja, hogy náluk minden ok...
ez a CGI fájl. miért nem működik???

#!/usr/bin/perl -w
use CGI;
$upload_dir = "akarmi.hu";
$query = new CGI;
$filename = $query->param("Filen");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("Filen");
open UPLOADFILE, ">$upload_dir/$filename";
while ( <$upload_filehandle> )
{
print UPLOADFILE;
}
close UPLOADFILE;
print $query->header();
print <<END_HTML;