#!/usr/bin/perl 
##############################################################
use strict;

my $directory=shift @ARGV;   # get the target directory

open $fh,"> /tmp/logfile.txt" or die "/tmp/logfile.txt:$!";

if ( ! -d $directory ) {
      puke_and_die($fh,"no such directory: " . $directory);
      
}
chdir $directory or puke_and_die($fh,"Cannot chdir to $directory");
opendir(DIR,$directory);
while(my $fname=readdir(DIR)){
       next if ($fname eq '.') || ($fname eq '..');
       next if -d $fname;
       unlink $fname or logit ($fh,"could not remove " . $fname . ": $!");
}



exit(0);
sub logit {
       my($fh,$msg) = @_;
       printf $fh,"%s\n",$msg;
}
sub puke_and_die {
      my ($fh,$msg)=@_;
      logit($fh,$msg);
      close $fh;
      exit(-1);
}