my $filename = $q->param('filename');
&uploadFile($filename);

sub uploadFile {
    my $file = shift;
    ...

##</code><code>##

sub uploadFile {
    my $file = $q->param('filename');
    ...