$t=".tm" #this is use for the file extension, 

  sub DeleteFile() {
      my $FileName=$_[0];
      $FileName="$FileName$t";
      unlink '$FileName$t';
  }    

##</code><code>##

unlink $FileName;

##</code><code>##

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