upload skript funktioniert nicht

[Peter]

hallo,

bei meinem letzten Posting habe ich dieses skript bekommen zum datei-upload :

#!/usr/bin/perl

use CGI;

$query = new CGI;

open(OUT, ">test.txt") die;
print OUT $query->param('uploaded_file');
close OUT;

Dieser Code schreibt allerdings (wie logisch anzunehmen ist) nur den Dateinamen in test.txt und nicht den inhalt der datei !
Kann mir jemand helfen und sagen , wie es richtig geht ?

MfG
Peter Schenkel