Select Code to Download

#!/usr/bin/env perl

...
my $content = get($url);
my $ascii = &htmltoascii::convert($content);
print "test is $ascii\n";

sub convert {
...
    for $t->find_by_tag_name('table') ;
    return($obj);
}