#!/usr/local/bin/perl
use Mail::Address;
my $file = shift;
open (FILE, $file) or die "$@ Couldn't open file";
my @contents = <FILE>;


foreach my $line (@contents) {

              my @addrs = Mail::Address->parse($line);
    foreach $addr (@addrs) {
        print $count++, $addr->address,  "\n";
    }
 }