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

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