Select Code to Download

#! perl -slw
use strict;
...
weight        2500    fax=0800-FAX-2500
weight        500        fax=0800-FAX-500,email=500@somewhere.com
weight        750        email=750@somewhere.com,phone=0800-CALL-750

P:\test>395427
$VAR1 = bless( {
...
Phoning 0800-CALL-STEEL
Faxing 0800-FAX-STEEL
Sending email to steel@somewhere.com