use SyslogScan::DeliveryIterator; use strict; my $logs = [ '/var/adm/syslog/mail.log' ]; my $iterator = new SyslogScan::DeliveryIterator( syslogList => $logs ); while ( my $delivery = $iterator->next() ){ print $delivery->{Sender} . " -> " . join( ",", @{$delivery->{ReceiverList}} ), "\n"; }