Select Code to Download

use LWP::Simple;
my $url = 'http://www.example.com';
my $content = get $url;

use HTML::TableExtract;

...
        print $outfh join ( "\t", map { defined $_ ? $_ : ''; } @$row 
+), "\n";
    }
}