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

##</code><code>##

print $query->filefield('uploaded_file','starting value', 50,80);

##</code><code>##

$filename = $query->param('uploaded_file');
while (<$filename>) {
  print;
  }