Delete or Zero a File or Files

Zero a File

#
# ------ zero an existing file -----------
#
# just pass in a string file name

sub zerofile { 
  foreach (@_) { 
    open FH, ">", $_ or die "Couldn't open '$filename': $!";
    close FH;
  }
}

Delete Files

unlink <$path/*.txt>;