Select Code to Download

chdir("/Library/WebServer/Documents/userpages/$drt/");

glob("*.*");

foreach (@files) {
my $choppedstring=$_;
substr($choppedstring,0,$length_of_dir)="";
print "<br> Delete this File: $choppedstring <INPUT TYPE=\"checkbox\" 
+NAME=\"files\" VALUE=\"$_\">\n";
}