package Checking;

my $bal = 0;

sub deposit {
                $d = @_;
                $bal = $bal+$d;
#               print $bal;
                #return;
                }
1;