Script for uploading files to a server

Hi!

I use the following script for saving the uploaded file to the server.
It is basically driving me mad!
($q is initialised before)

my $sourceFilePath = $q->param('pdf');
my $fileHandle = $q->upload('pdf');
open (OUT, ">test.pdf") or die "$!";
binmode OUT;
while(<$fileHandle>){
print OUT;
}
close OUT;


What is the basic problem - $fileHandle seems to be empty while
$sourceFilePath holds the correct filename! I am stuck with this
problem for some time now :/

I have the current version of the CGI module.

Thank you in advance!
.