Next Welcome to my ~/bin 134

attach: type inference

        %type = ('gif' => 'image/gif',
                 ...
                );
        ...
          my $type = $type{lc $suf} || 'application/octet-stream';
          $msg->attach(Type     => $type,
                       Path     => $_);


Next Menu Copyright © 2005 M. J. Dominus