#!/usr/bin/perl

use CGI;

$q = new CGI;


$directory = '/home/httpd/html/antonh/testdir';

print $q->header, $q->start_html, "Removing $directory<br>";
$result = system("rm -r $directory");

print -W $directory,",", -o $directory,",",$result;