use Modern::Perl;
use LWP::Simple;
use HTML::TableExtract;
my $money = get("http://finance.yahoo.com/q/ks?s=MNDO+Key+Statistics");
my $p = new HTML::TableExtract();
$p->parse($money);
my $table = $p->table(2,9);
my ($fdr, $fdy, $tdr, $tdy, $fyay, $pr, $dd, $edd, $lsf, $lsd) = map{$table->cell($_,1)} (1 .. 10);
say $fdr;