sub DeleteFile()
{
   my $FileName = $_[0] . $t;
   die "No file called [$Filename] deleted\n" unless 
      unlink $FileName;
}