#!/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;