I think ,the error lies in your perl-Tk coding while specifying arguements ,
Will you again post your tk code, so that i can able to fix the error..?
my tk code.........
#!/usr/bin/perl -w
eval '(exit $?0)' && eval 'exec /usr/local/bin/perl $0 ${1+"$@"}'
&& eval 'exec /usr/local/bin/perl $0 $argv:q'
if 0;
use Tk;
use Tk ':variables';
use strict;
use warnings;
use Tk::Adjuster;
use File::Compare;
use Tk::Frame;
use Tk::TextUndo;
use Tk::Text;
use Tk::Scrollbar;
use Tk::Menu;
use Tk::Menubutton;
use Tk::DialogBox;
use Tk::Label;
use Net::SNMP qw(snmp_dispatcher oid_lex_sort);
use Tk::ItemStyle;
use List::Compare;
################################################## ######
# MAIN WINDOW
################################################## ######
my $mw = MainWindow->new;
$mw->geometry("600x500");
$mw->title("Network Device Monitoring tool");
################################################## #######
# WIDGETS
################################################## #######
#top level frame.....
my $frmTop = $mw->Frame(-bd => 3, -relief => 'ridge')
->pack(-side => 'top', -fill => 'x', -pady => 1);
$frmTop->Button(-text => "get data", -command =>\&pra,-background => '#BC8F8F')->pack(-ipadx => 10,-ipady => 4,-padx => 15,-pady => 15,-side =>"left",-expand
=>"no",-anchor =>"nw");
$frmTop->Button(-text => "new data", -command =>\&pra3,-background => '#BC8F8F')->pack(-ipadx => 10,-ipady => 4,-padx => 150 ,-pady => 15,-side =>"left",-expand
=>"no",-anchor =>"center");
$frmTop->Button(-text => "check", -command =>\&comparing,-background => '#BC8F8F')->pack(-ipadx => 10,-ipady => 4,-padx => 15,-pady => 15,-side =>"right",-expand
=>"no",-anchor =>"e");
#middle level frame......
my $frmMiddle = $mw->Frame(-bd => 3, -relief => 'ridge')
->pack(-side => 'top', -fill => 'x');
my $frmMiddle1 = $frmMiddle->Frame(-bd => 2)->pack(
-side => 'top', -fill => 'x');
$frmMiddle1->Label(-text=>"currently connected ")->pack(-padx => 15,-pady => 1,-side => 'left',-expand =>"no");
$frmMiddle1->Label(-text=>"newly connected")->pack(-padx => 78,-pady => 1,-side => 'left',-expand =>"no");
$frmMiddle1->Label(-text=>"currently not connected")->pack(-padx => 45,-pady => 1,-side => 'right',-expand =>"no");
my $scrollbar1 =$frmMiddle ->Scrollbar( );
my $scrollbar2 =$frmMiddle ->Scrollbar( );
my $scrollbar3 =$frmMiddle ->Scrollbar( );
my $tx = $frmMiddle->Text(-yscrollcommand => ['set' => $scrollbar1],-width =>18,-height =>20,-background =>"white")->pack(-padx => 15,-pady => 10,-side => 'left',-fill =>'both',-expand =>1);
$scrollbar1->configure(-command => ['yview' => $tx]);
$scrollbar1->pack(-side => 'left', -fill => 'y');
my $tx1 = $frmMiddle->Text(-yscrollcommand => ['set' => $scrollbar2],-width =>18,-height =>20,-background =>"white")->pack(-padx => 15,-pady => 10,-side => 'left',-fill =>'both',-expand =>1);
$scrollbar2->configure(-command => ['yview' => $tx1]);
$scrollbar2->pack(-side => 'left', -fill => 'y');
my $tx3 = $frmMiddle->Text(-yscrollcommand => ['set' => $scrollbar3],-width =>18,-height =>20,-background =>"white")->pack(-padx => 15,-pady => 10,-side => 'left',-fill =>'both',-expand =>1);
$scrollbar3->configure(-command => ['yview' => $tx3]);
$scrollbar3->pack(-side => 'left', -fill => 'y');
#bottom level frame....
my $frmBottom = $mw->Frame(-bd => 3, -relief => 'ridge')
->pack(-side => 'top', -fill => 'both');
$frmBottom->Button(-text => "Update", -command =>\&updating,-background => '#BC8F8F')->pack(-ipadx => 10,-ipady => 4,-padx => 15,-pady => 15,-side =>"left",-expand
=>"no",-anchor =>"w");
$frmBottom->Button(-text => "Close", -command =>sub{exit},-background => '#BC8F8F')->pack(-ipadx => 10,-ipady => 4,-padx => 15,-pady => 15,-side =>"right",-expand
=>"no",-anchor =>"e");
thanks for your time,cheers