Hvad er der galt med dette script?

Her er mit script:

#!/usr/bin/perl -w

use CGI qw(:standard);
use strict;
print header,start_html,start_multipart_form() ,filefield(-name=>\'uploaded_file\',
                -default=>\'starting value\',
                -size=>50,
                -maxlength=>80),submit,end_form;


my $filename = param(\'uploaded_file\');
print $filename;

if(my $fh = upload(\'uploaded_file\')) {
    while (<$fh>) {
        print;
    }
}
print end_html;

Af en eller anden grund kommer printer den ikke noget ud, selvom jeg har valgt en fil... nogen ideer?