$param1=~m!http://.+?(/.+)!;$file=$1; $file=$path_to_domain.$file; unlink($file); print "Content-type: text/html\n\n"; print qq~ ~; 1;