Select Code to Download

  ${BIN_DIR}/tapeloadListing.pl >> ${LOGS_DIR}/corps.${VERSION_DATE}.l
+og #2>&1
        if (( $? == 0 )); then
...
                echo "PERL script used to get the tapeload snapshot fa
+iled, hence aborting the script as the files can't be downloaded" | m
+ailx -s "CORP V2 BUILD ERROR - ${VERSION_DATE}" ${MAIL_ADMIN}
                exit 1;
        fi

$fh  =  new FileHandle;
$fh -> open("< /export/home/$ADMIN/pwds/ftp_pass.txt") or die "Error o
+pening FTP password file, $!";
...
$fh -> close;
print $TAPELOAD_PWD
chomp($TAPELOAD_PWD);