my $image = $nw->Photo(-file => "./tsl_logo1.gif");
my $t_im = $nw->Label(-image => $image,
                     -background => $color
                     )->pack(
                             -side => 'left',
                             -expand => 1,
                             -fill => 'both'
                             );