#!/usr/bin/perl
use Email::Find;
$file = shift;
open (FILE, $file) or die "Couldn't open filename: ";
while (<FILE>)
{
 $text = $_;

 my $finder = Email::Find->new(sub 
 {
 	my($email, $orig_email) = @_;
 	print "".$email->format."\n";
 	return $orig_email;
 });

 $finder->find(\$text);