sub new() {
   my ($class) = shift;
   my $self = {};
   my $self->{dir} = shift;
   print $self->{dir};