How to extract data (screen scrape) from webpages?

#!/usr/bin/perl
use DBI;
 
# I HAD ONLY PostgreSQL, so you need to test this!
my $conn = DBI->connect("dbi:Pg:dbname=assets;host=localhost;port=5432", "postgres", "YOUWISH");
# my $conn = DBI->connect("dbi:mysql:dbname=YOUR_DATABASE;host=localhost", "YOUR_USER", "YOUR_PASS");
 
# delete everything from the history table
my $queryDelete = $conn->prepare("delete from history;");
$queryDelete->execute();
 
 
# print HTML from a URL
use LWP;
use HTML::TreeBuilder;
 
# the URL that we need to fetch and parse
my $url = "file:C:/bin/cygwin/home/adrpo/webpage-html/webpage.html";
# my $url = "http://your-host.org/file.html";
 
my $browser = LWP::UserAgent->new;
 
$response = $browser->get($url); 
 die "Can't get $url -- ", $response->status_line
   unless $response->is_success;
 
 die "Was expecting HTML, not ", $response->content_type
   unless $response->content_type eq 'text/html';
     # or whatever content-type you're equipped to deal with
 
my $tree = HTML::TreeBuilder->new; # empty tree
$tree->parse($response->content);
# dump the tree
# $tree->dump;
 
#get the body
@bodies = $tree->look_down('_tag' => 'body');
 
my ($co_name, $co_address, $co_telephone, $co_website, 
    $co_address1, $co_address2, $co_city, $co_state, 
    $co_postcode, $co_country);
 
foreach $body (@bodies) {
    my @tags = $body->content_list();
    my $i = 0;
    $size = @tags;
    while($i < $size) {
       # get the Name: tag
       if (ref($tags[$i]) eq "HTML::Element" and $tags[$i]->as_trimmed_text eq 'Name:')
       {	
	   $i++;
	   $co_name = $tags[$i]; 
       }
       $i++; # advance to Address: tag
       if (ref($tags[$i]) eq "HTML::Element" and $tags[$i]->as_trimmed_text eq 'Address:')
       {	
	   $i++;
	   $co_address = $tags[$i];
	   if ($co_address =~ /(.+)\,\s(.+)\,\s([a-zA-Z]*)\s([0-9]*)\,\s(.+)/)      
	   {     
	       $co_address1 = $1;
	       $co_address2 = "";
	       $co_city     = $2;
	       $co_state    = $3;
	       $co_postcode = $4;
	       $co_country  = $5;
	   }
	   else
	   {
	       print("Address: $co_address DID NOT MATCH!\n");
	   }
       }
       $i++; # advance to Telephone: tag
       if (ref($tags[$i]) eq "HTML::Element" and $tags[$i]->as_trimmed_text eq 'Telephone:')
       {	
	   $i++;
	   $co_telephone = $tags[$i];
       }
       $i++; # advance to Website: tag
       if (ref($tags[$i]) eq "HTML::Element" and $tags[$i]->as_trimmed_text eq 'Website:')
       {	
	   $i++;
	   $co_website = $tags[$i];
       }
       print "Inserting: ";
       print "\t" . $co_name . "\n";
       print "\t\t" . $co_address1 . " " . $co_address2 . " " . $co_postcode . ", " . $co_city . " ";
       print $co_state . " " .  $co_country . "\n";
       print "\t\t" . $co_telephone . "\n";
       print "\t\t" . $co_website . "\n";
       my $queryInsert = $conn->prepare("insert into history(co_name, co_address1, co_address2, co_city, co_state, co_postcode, co_country, co_telephone, co_website) values(?, ?, ?, ?, ?, ?, ?, ?, ?)");
       $queryInsert->execute($co_name, $co_address1, $co_address2, $co_city, $co_state, $co_postcode, $co_country, $co_telephone, $co_website);
       $i++;
    }
}
 
 
# check the inserted data
my $query = $conn->prepare("select * from history");
$query->execute();
 
while (@data = $query->fetchrow_array()) {
    print "Name: $data[0]\n";
    print "\tAddress 1: $data[1]\n";
    print "\tAddress 2: $data[2]\n";
    print "\tCity:      $data[3]\n";
    print "\tState:     $data[4]\n";
    print "\tPostcode:  $data[5]\n";
    print "\tCountry:   $data[6]\n";
    print "\tPhone:     $data[7]\n";
    print "\tWebsite:   $data[8]\n";
}
 
print ("******* Done with the processing! ********\n");