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

my $MW = MainWindow->new;
$MW->withdraw;
$MW->Label(-text=>"This line will not cause a segfault")->pack;
$MW->Button(-text => "Shutdown and close",
      -command => [ \&abort_routine]) -> pack;


my $top = $MW->Toplevel(-bg=>'steelblue',-title=>"test box 1");
  
$top->Label(-text=>"Choose one option",
                 -font=>"courierfont") -> pack;

my @file_references = ("Ref1", "Ref2", "Ref3", "Ref4");
my $i=1;
  foreach my $my_ref (@file_references)
  {
    $top->Button(-text => "$my_ref",
         -command => [ \&do_button, "$my_ref,$i"]) -> pack;
    $i++;
  }

MainLoop();


sub do_button
{
  my $params;
  my $widget;

  $params = shift;
  (my $ref, my $Array_Index) = split (/,/,$params);
  print "$params\n"; 
 
  $top->destroy();
  $MW->deiconify;
  $MW->raise;
}

sub abort_routine{
  exit
}