Fucking upload-script!

Jeg sidder og har mistet halvdelen af mit hår!

Mit script, skal kunne ta' en fil på ens HD og uploade denne til serveren.

Det fungerer bare ikke en skid, når det er større filer!!

Jeg har lavet flg:
----------------
#!/usr/bin/perl
use CGI;

$reg = new CGI;
$Fil = $reg->param("Filnavn");
$Filnavn = $Fil;
$Filnavn =~ s!^.*(\\|\/)!!;

print $Fil;

print "";

print $Filnavn;

open(Gem,">$Filnavn");

while ($anders = read($Fil,$huba,1024)) {

print (Gem $huba);

}

close(Gem);
-------------------

Når jeg fyrer op under scriptet med en fx. 5972 bytes stor fil, så laver den al mulig latterligt lort i filen (første 1/3 er perfekt) - men den ender med at fylde 6000 bytes.

Jeg FATTER det ikke!

Er det min skide udbyders server der trænger til rustfjerner????!

Skriv for pokker hvis du ved hvad det er!

Jeg har brugt hele min fucking eftermiddag!!

- Anders

PS. FUCK DET - JEG GIDER ALLE MINE POINT UD!!!!!!!!!!!!!!!!!