на держи за код спасибо elekt-y

# GUI . Создаём окно
$wind = new MainWindow(title => "Antichat SQL-tools" );
$wind->geometry ( '800x600' ) ;
$wind->resizable(0,0);

#################################################
# выводим рисунок
$wind->Label( -text => ' ', -font => '{Verdana} 1 bold',)->pack();
$wind->Photo('logo', -file => 'logo.gif');
$frames_image = $wind->Frame()->pack(-side => "top" , -anchor => 'center');
$frames_image->Label(-height=>70, -image=>'logo', -width=>750)->pack(-side => "top" , -anchor => 'center');


кста норм доков по tk - на русском фиг найдешь -- все думаю засесть за перевод мана да времени нету