&My::custom_routine("TESTTRANSFER");
my $rc=$?>>8;
die ($rc) if ($rc > 0);

END {
   if ($? > 0) {
   print STDERR "TEST.PL Died with error.\n";
   copy("TEST.LOG", "TEST.ERROR");
   &My::pager("TEST ERROR MESSAGE.");
   }else{
   print STDERR "TEST.PL completed successfully.\n";
   copy("TEST.LOG", "TEST.GOOD");
   exit 0;
   }
}