#!/usr/bin/perl
use Mail::AddressSort;
open(EMAILS, "/root/emails") or die "Couldn't open email list\n";
while (<EMAILS>)
{
 @addresses = <EMAILS>;
 $list=Mail::AddressSort->new();
 $list->input(@addresses);
 (@addresses)=$list->sorted();
 print "@addresses";
}