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

# Main Window
my $mw = MainWindow->new;

# Frames
my $tf_frame = $mw->Frame->pack();
my $f_frame = $mw->Frame->pack();
my $bf_frame = $mw->Frame->pack();

# File Listing Label
$tf_frame->Label(-text => 
         "Select Items")
	  ->pack(-side => 'left');


my @items = (1..500);
 
my $listbox = $f_frame->Scrolled("Listbox",
    -scrollbars => "oe",
    -selectmode => "extended")->pack;
$listbox->insert('end', @items);

$bf_frame->Button(-text => "Done",
    -command => sub { &print_names($listbox);
                     exit; 
                    })->pack;

MainLoop;


sub print_names{

    my $listbox = shift;
    my @selected_items = $listbox->curselection;
    for (@selected_items) {
        my $item = $listbox->get($_);
        print "$item\n";
    }
}