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,}});
}