P:\test>395427
$VAR1 = bless( {
                 'color' => bless( {
                                     'value' => 'green',
                                     'type' => 'color'
                                   }, 'Attribute' ),
                 'weight' => bless( {
                                      'value' => 1000,
                                      'type' => 'weight'
                                    }, 'Attribute' ),
                 'size' => bless( {
                                    'value' => 13,
                                    'type' => 'size'
                                  }, 'Attribute' ),
                 'material' => bless( {
                                        'value' => 'steel',
                                        'type' => 'material'
                                      }, 'Attribute' )
               }, 'Widget' );

Sending email to green@somewhere.com
Faxing 0800-FAX-1000
Faxing 0800-FAX-13
Sending email to 13@somewhere.com
Phoning 0800-CALL-STEEL
Faxing 0800-FAX-STEEL
Sending email to steel@somewhere.com