#the pass in is just the name of the file without the extension

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

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