Select Code to Download

sub update_bank_status {
...
    close (FILE);

}

$mw->repeat(5000, \&update_statuses);