Select Code to Download

#!/usr/local/dthink/perl/bin/perl 
 
...
 
        exit (1); 
}

#!/usr/local/bin/perl -w
################################################################
...
    close (MAIL);

}