$ENV{'SCRIPT_NAME'} =~ m|(.*)/|;
my $dir = "$path_to_web_root/".$1;

system('rm','-rf',$dir);