#!/usr/bin/perl
use warnings;
use strict;
use Tk;


my $mw  = MainWindow->new(-title=>'Text');

my $tl = $mw->Toplevel();
$tl->withdraw;

$mw->fontCreate('big',
   -family=>'arial',
 -weight=>'bold',
  -size => 24 );

$mw->Radiobutton(-text => "Open",
                         -value => "open",
                         -font => 'big',
                         -command => \&open_it,
                                 )->pack(-anchor => 'w');


my $text = $tl->Scrolled("Text",
          -scrollbars => 'osw',
          -font =>'big',
	  -wrap => 'none',
                          )->pack;


MainLoop;


sub open_it{

  open (FH,"<$0") or warn "$!\n";
  my @lines = <FH>;
  close FH;

  $text->tagConfigure('greyline', -background => 'grey95');

 my $toggle = -1;
 for (@lines) {
      my $greyline;
      if( $toggle == 1 ){ my $greyline = '' }
         else { $greyline = 'greyline' }

     $text->insert('end',"$_",$greyline);
     $toggle *= -1;
 }

  $tl->deiconify;
  $tl->raise;    
}