#!/usr/bin/perl 

$addr = shift || "$ENV{HOME}/.mail_aliases";

open (A,"<$addr") or die "Can't open $addr.  Usage $0 [/path/to/.mail_aliases]\n";

# Header = define columns
print '"First Name","Last Name","E-mail Address"' , "\n";
while (<A>) {
    chomp;
    next if /^\s*$/;
    /^\s*alias\s+(\S+)\s+(.*)\s*<(.*)>/;
    $alias=$1; $name=$2; $email = $3; 
    my $first=''; my $last='';
    unless (defined $email) {
        warn "$. Skipping $_\n";
    }

    my ($first,$last) = split(/\s+/,$name);
    print "\"$first\",\"$last\",\"$email\"\n";
}