my $button1 = $main->Button( -height => "4",
   -width => "4",
   -image => '1tel.gif',
   -command => sub {exit 0} );
   $button1->pack(-anchor => "ne");