它在pod中:
my $q = CGI->new(); # get filehandle like objects from the query. my @uploaded_files = $q->upload(); # get file by name my $fh = $q->upload('uploaded_file');