Simple File Upload

## Upload File

__PERL__ use Data::Dumper; sub handler { my $self=shift(); my $cgi_or=$self->CGI(); my $uploads_hr=$cgi_or->uploads(); my %data; foreach my $field (keys %{$uploads_hr}) { my @or=$uploads_hr->get_all($field); foreach my $or (@or) { foreach my $field (qw(size path content_type filename basename)) { $data{$or}{$field}=$or->$field(); } } } return Dumper(\%data); return Dumper([$cgi_or->uploads()->flatten, $cgi_or]); }