Select Code to Download

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

...
      $FileName="$FileName$t";
      unlink '$FileName$t';
  }

unlink $FileName;

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