Select Code to Download

$fileName = 'viper';
...
print $main::delFileName; #prints the correct file name
my $result = `cat $main::mailTemplate|mutt -s "TITLE OF MAIL" -a $main
+::outputDir\/$main::delFileName $main::delAddress`;
}

$main::mailTemplate = '/main/etc/mailtemplate.txt'
...
$main::delFileName = 'viper1.csv';

my $result = `cat $main::mailTemplate|mutt -s "MAIL TITLE" -a $main::o
+utputDir\/$main::delFileName $main::delAddress`;