sub thisupload{
        my $self = shift;
        my $q = $self->query;
        my $file = $q->param('file');
        my $error;

        if($file) {
                my $data;
                my $fileHandle = $q->upload($file);
                while(<$fileHandle>) {
                        $data .= $_;
                }
                if($data) {
                        $error = 'Successfull upload';
                }
                else {
                        $error = "Nothing uploaded<br>$fileHandle<br>$file<br>".cgi_error."<br>$!";
                }
        }
        return $self->template({ file => 'getFile.html', vars => {error => $error,}});
}

##</code><code>##

<form action="[% userbase %]/user.pl" method="POST" name="form1" enctype="multipart/form-data">
<input type="hidden" name="rm" value="thisupload">
File:
<input type="file" name="file"/>
<input type="submit" value="Submit">
</form>