print $query->filefield(-name=>'uploaded_file',
                        -default=>'starting value',
                        -size=>50,
                        -maxlength=>80);

##</code><code>##

$filename = $query->param('uploaded_file');
$type = $query->uploadInfo($filename)->{'Content-Type'};
# or
$fh = $query->upload('uploaded_file');
while (<$fh>) {
     print;
}