Select Code to Download

    ### Cat (Unix only):
    if (1) {
    my $path = "$gifpath";
    $msg->attach(Subject => "Cat path to pipe, and read that",
             Path => $path,

    ### Do something like this in your 'main':
    if ($I_DONT_HAVE_SENDMAIL) {
...
     
    ### Now this will do the right thing:
    $msg->send;         ### will now use Net::SMTP as shown above

#!/usr/bin/perl -w

...
exit(&main ? 0 : -1);
1;
__END__