#! /usr/bin/perl
#
# Copyright (c) 2012, cPanel, Inc.
# All rights reserved.
# http://cpanel.net/
#
# This is free software; you can redistribute it and/or modify it under the same
# terms as Perl itself. See the LICENSE file for further details.
use strict;
use warnings;
use Mail::Alias::Reader;
my $reader = Mail::Alias::Reader->open(
'file' => $ARGV[0],
'mode' => 'aliases'
);
while (my ($name, $destinations) = $reader->read) {
printf("%s: %s\n", $name, join(', ', map { $_->to_string } @{$destinations}));
}