#!/usr/bin/perl -w
use strict;
use Mail::AddressSort;

open(EMAILS, "/root/emails") or die "Couldn't open email list\n";
my @addresses = <EMAILS>;
if (@addresses) {
 my $list=Mail::AddressSort->new();
 $list->input(@addresses);
 (@addresses)=$list->sorted();
 print join "\n", @addresses;
}