#!/usr/bin/env perl

use htmltoascii;
use strict;
use LWP::Simple;

my $url = 'https://archive.nrao.edu/archive/ArchiveRouter?SCAN_FILE_IDS=181828362';
my $content = get($url);
my $ascii = &htmltoascii::convert($content);
print "test is $ascii\n";

##</code><code>##


sub convert {
    my $html = shift;
    
    my $t = HTML::TreeBuilder->new();
    $t->parse($html);
    $t->eof;
    
    my $obj = DumpTable( $_ ), $/, $/ 
	for $t->find_by_tag_name('table') ;
    return($obj);
}