#!/usr/local/bin/perl
$f=5;$n=30;$d='./u';$p='\w{1,64}\.(jpg|gif|png|zip)';$s=2**20;$m=0604;use CGI
':all';if(chdir$d){$t=time;for(1..$f){if(($g=param($l="file$_"))&&-s$g&&-s _<$s
&&open F,">./${t}_${_}_".($g=~/($p)$/?$1:'unknown.txt')){binmode F;print F <$g>
;close F;chmod$m}push@l,filefield -name,$l}unlink grep!/^\d/||($i++<$n?do{push
@r,[stat,$_];()}:$_),@f=reverse<*>}charset '';put header,start_multipart_form,
ul(li[@l,submit]),endform,pre join"\n",map{sprintf"%04o | %12d | %s | %s",07777
& $_->[2],$_->[7],scalar(localtime$_->[9]),a{href=>"$d/$_->[-1]"},$_->[-1]}@r;