passing the object handle from sub to sub) &display_data($Tobj);
alternatively call methods on the object
$Tobj->display_data()
For example
#!/usr/bin/perl
use strict;
use lib './my_app';
use my_app::db;
use my_app::page;
my $dbh = my_app::db->connect();
my $page = my_app::page->new(); # create a page object
for my $uid (1..3){
$page->init($dbh,$uid); # query database
$page->display;
}