#!/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