use Tk;
$mw->title("Bank status");
$mw->geometry("1024x764");
my $upperframe = $mw->frame()-pack(-fill => 'x');
Tk::MainLoop();

sub build_entry_bank{
my $statusbank = shift;
my $box_banamex = $upperframe->Entry(
             -forecolor => 'blue',
             -textvariable => \$statusbank,
             -width => 20,
             )->pack (-side => 'left',
                      -expand => 1);
  return $box_banamex;
}

sub status_bank{
        open (DATBANK, "banamex.txt") || die ("File Bank did not open!!!!");
        my @bank_status = <DATBANK>;
        close (DATBANK);
        foreach my $status_bank(@bank_status){
        chomp ($status_bank);
        my $statusbank;
        my $bank;
        ($bank,$statusbank) = split(/\|/,$status_bank);

        }

}