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

##</code><code>##

glob("*.*");

##</code><code>##

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