#!C:/Perl/bin/perl.exe -w

use Tk;
use strict;
use warnings;

my $mw = MainWindow->new( -title => 'TEST' );
my $entry = $mw->Listbox( -height => 12, -width => 40 )->pack();
my $var  = sprintf( "%-20s", "MAX VALUE" ) . " = 100";
my $var1 = sprintf( "%-20s", "MIN " ) . " = 100";

my @output = ( $var, $var1 );

foreach (@output) {
    print $_, "\n";
    $entry->insert( 'end', $_ );
}

MainLoop;