bank1|ACTIVE
bank2|NO ACTIVE
bank3|ACTIVE

##</code><code>##

sub make_entry1 {
    my ($upframe,$labe2,$filename1) = @_;
    my $label_info4 = $upframe->Label(
		-text => 'Status :',
	)->pack(-side => 'left',
                -expand => 1);
open(DAT1, $filename1) || die("Could not open file!");
my @stat1=<DAT1>;
close(DAT1);
foreach my $stat1(@stat1)
{
    chomp ($stat1);
    my $operacion;
    my $stado1;
    ($operacion,$stado1)=split(/\|/,$stat1);
    my $label_display1 = $upframe->Label(
        -textvariable => \$operacion
    )->pack(-side => 'left',
            -expand => 1);
    if ($stado1 eq "ACTIVO"){
         my $entry_info1 = $upframe->Entry(
                -foreground => 'blue',
                -textvariable => \$stado1,
		-width => 20,
	)->pack(-side => 'left');
                #-expand => 1);
    } else {
           my $entry_info1 = $upframe->Entry(
                -foreground => 'red',
                -textvariable => \$stado1,
		-width => 20,
	)->pack(-side => 'left');
                #-expand => 1);
    }


}
}