package MaybeADirectoryObject;
use strict;

sub new {
   my ($class, $dir) = @_;
   if(! -e $dir) {
      print "The directory $dir does not exist\n";
      return;
   }
   
   my $self = {};
   # Initialize $self using directory here...
   bless($self, $class);
   return $self;
}