my $url = param('url');

MY_PARSE($url);

sub MY_PARSE {
my $listing = shift;
open LISTING, "/usr/local/bin/lynx -source $listing|" or die "can't open HANDLE_IN $!";
    my $count;
    @line = <LISTING>;
foreach $line (@line) {
              my @addrs = Mail::Address->parse($line);
    foreach $addr (@addrs) {
        print $addr->address(),  "\n";
                                 }
                      }            }