use strict;
use warnings;
use diagnostics;
use Tk;

my $cboAgent;
my $mw = MainWindow->new;
$mw->geometry('200x400');
$mw->toplevel->resizable(0,0);

$mw->Label(-text               => 'Agent' )
           ->place(-x          => 0,
                   -y          => 0
                  );

($cboAgent) = $mw->Scrolled('Listbox',
                   -height     => 20,
                   -width      => 10,
                   -scrollbars => 'e')
                 ->place(-x    => 0,
                         -y    => 25
                        );

$mw->toplevel->iconbitmap('C:\Template\v3_5\TARDISdv\Tardis.ico');

MainLoop;