problem in telnet using perl

im a beginner in perl. At present im working on automation of testing.

i wrote a script to add a record in a remote system and to check the
contents of the record whether it is correctly added or not.

part of my code is like this
..
..
..
#upto know the record is added successfully when i checked it manually

$t->input_log("/home/user/work/show-object");

$match='/config\/proxy\/pop3/'; #this is where the policy added in the
remote system.

$t -> cmd(Prompt => $match, String => "showtranspolicy -ruleid $ruleid
\n",Timeout =>10); #this will list the contents of the record
($ruleid) which i added earlier

sleep 1;
open($fh2, " object: $!\n";

&chkPara; # this will check the contents of the record based on the
logfile contents

$t->input_log("");

close($fh2);

#system("rm -rf /home/user/work/show-object");

&telnetclose();

My priblem is nothing is present in the logfile show-object. Can
anybody tell me where the problem

Thanks i advance,

srikanth