#!/usr/bin/perl
use LWP::Simple;
use HTML::TokeParser;
use URI::Escape;

&sw;

sub sw {
        $content = get('http://example.com/test.html');

....truncated

##</code><code>##

#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TokeParser;
use URI::Escape;
use DBI;
use DBD::mysql;



$database = "Assets2";
$host = "localhost";
$port = "3306";
$user= "assets";
$password= "xxx";

$dsn = "DBI:mysql:$database:$host:$port";
$connect = DBI->connect($dsn,$user, $password);

&get_index;

sub get_index {
        $query1 = "Select * from devices";
        $query_handle1 = $connect->prepare($query1);
        $query_handle1->execute;
        $query_handle1->bind_columns(\$id,\$device);
        while ($query_handle1->fetch) {
                print "id: $id\tname: $device\n";
                &switch_properties;
        }
}

sub switch_properties {
        $content = get('http://example.com/$device');

...truncated

##</code><code>##

Use of uninitialized value in substr at /usr/lib/perl5/HTML/PullParser.pm line 80.
Use of uninitialized value in length at /usr/lib/perl5/HTML/PullParser.pm line 83.

##</code><code>##

Use of uninitialized value in substr at /usr/lib/perl5/HTML/PullParser.pm line 80.
 at /usr/lib/perl5/HTML/PullParser.pm line 80
        HTML::PullParser::get_token('HTML::TokeParser=HASH(0x9ce9fd0)') called at /usr/lib/perl5/HTML/TokeParser.pm line 52
        HTML::TokeParser::get_tag('HTML::TokeParser=HASH(0x9ce9fd0)', 'tr') called at switchmapHTMLTEST1.pl line 51
        main::switch_properties called at switchmapHTMLTEST1.pl line 28
        main::get_index called at switchmapHTMLTEST1.pl line 19
Use of uninitialized value in length at /usr/lib/perl5/HTML/PullParser.pm line 83.
 at /usr/lib/perl5/HTML/PullParser.pm line 83
        HTML::PullParser::get_token('HTML::TokeParser=HASH(0x9ce9fd0)') called at /usr/lib/perl5/HTML/TokeParser.pm line 52
        HTML::TokeParser::get_tag('HTML::TokeParser=HASH(0x9ce9fd0)', 'tr') called at switchmapHTMLTEST1.pl line 51
        main::switch_properties called at switchmapHTMLTEST1.pl line 28
        main::get_index called at switchmapHTMLTEST1.pl line 19