sub new() {
    my ($class) = $_[0];
    my $self = {};
    my $self->{dir} = $_[1];
    print $self->dir;