I tried the following to use SMTP to send email:
use Net::SMTP;
$optServer = 'luxn.com';
$optFrom = "[EMAIL PROTECTED]";
$optTo = "[EMAIL PROTECTED]";
$smtp = Net::SMTP -> new ("luxn.com");
$smtp -> mail($optFrom);
$smtp -> to ($optTo);
$smtp -> data();
Send the Head
Tried to install under PPM> install archive-zip, it
say "can not locate PPD file for archive-zip". I have
the same error message with the OLE package.
Thanks,
Yi
> > Can you give me a list of (all known) ppm repositories for the
> > ActivePerl build 6xx?
> > Or the URLs of sites concerning ppm.
> Try to do recursive find using File::Find, but do not
> want to count any directory which is a softlink.
>
> If I do
>
> return if ( -l $File::Find:name );
>
> it seems still go down to the tree of the softlink
> target.
>
>
> Any way to do this?
>
>
> Thanks,
> Yi Zhang
> Avaya Commu
