Select Code to Download

sub account_over_limit {
    my ($account, $balance) = @_;
    return exists $LIMITED_ACCOUNTS{$account} && $balance > $LIMIT;
}

BEGIN {
   my $var;
...
     $var;
   }
}