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