use warnings;
use strict;

package BankAccount;

sub new {
    my ($class, $name, $accountNo) = @_;

    return bless {name => $name, accountNo => $accountNo, balance => 0}, $class;
}

sub getName {
    my ($self) = @_;

    return $self->{name};
}


package main;

my $acct = BankAccount->new('Foo', '1234');

print $acct->getName();

##</code><code>##

Foo