#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ROText;
use DBI;
use DBD::mysql;

our $type="mysql";
our $database="beezynet_db";
our $host="http://www.xsite.com/";
our $port="3306";
our $tablename="topic";
our $user="username123";
our $pwd="**************";
our $dsn="dbi:$type:$database:$host:$port";

my $query;
my $queryhandle;

our $connect=DBI->connect($dsn,$user,$pwd)or die &mysql_Err;

my $mw=new MainWindow;
$mw->geometry('400x400');
my $rotext=$mw->ROText()->pack;
$query="SELECT count(*) FROM items ORDER BY id ASC";
$queryhandle=$connect->prepare($query);
$queryhandle->execute;
$queryhandle->bind_columns(undef, \my $id, \my $item_name, \my $item_price);
while($queryhandle->fetch()){
	$rotext->insert('1.0', "Item: $item_name\t\tPrice: \$item_price"); # After this it will Respond
}
$queryhandle->finish;

$connect->disconnect;
MainLoop;