#!/usr/bin/perl

use Cwd;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser set_message);

BEGIN {
sub handle {
print"Error: $_[0]";
}
set_message(\&handle);
}

&main;

sub main {

my $dir = cwd;
my (@files) = ();
my (@tmp_files = ();

opendir(DIR, $dir) || &err("Couldn't open dir : $!");
@files = readdir(DIR);
closedir(DIR);

@tmp_files = grep { /^\d{9}\.txt$/ } @files;

print header;

foreach (@tmp_files) {
unlink("$dir/$_") || &err("Couldn't unlink $_ : $!");
print "$dir/$_ : DELETED<br>";
}

}


sub err {

print header;
print $_[0];
exit;

}