#!/usr/local/bin/perl 

use strict;
use autodie;
use warnings;

use Tk;

@ARGV = __FILE__ unless (@ARGV);
my @data = <>;

my ($name) = 'fail';

my $top = MainWindow->new();
$top->optionAdd( '*Scrollbar.width' => '6.5m' );
$top->Button(
    -text    => 'Quit',
    -command => [ destroy => $top ]
  )->pack(
    -side => 'bottom',
    -fill => 'x',
  );

if ( $name eq 'pass' ) {
    my $lba = $top->ScrlListbox(
        -background => 'white',
        -foreground => 'green',
        -scrollbars => 'rse',
        -label      => 'Text',
    )->pack();
    $lba->insert( 'end', @data );
}
else {
    my $lbb = $top->ScrlListbox(
        -background => 'black',
        -foreground => 'red',
        -scrollbars => 'rse',
        -label      => 'Text',
    )->pack();
    $lbb->insert( 'end', @data );
}

MainLoop();