sub DeleteFile()
{
   my $FileName = $_[0] . $t;
   my $ret = unlink $FileName;

   warn "No file called [$Filename] deleted\n" unless $ret;
   return $ret;
}