#!/usr/bin/perl

package Bill;

sub new {
    my $class = shift;
    my $id = shift;

    my $self = {};

    bless($self, $class);

    $self->{id} = $id;

    return $self;
}

sub getId {
    my $self = shift;
    return $self->{id};
}

sub setId {
    my $self = shitf;
    my $newId = shift;

    $self->{id} =  $newId;
}


sub dump {
    my $self = shift;

    print "id is : ";
    print $self->{id};
    print "\n";
}
1;