sub getBinDir
{
     my $self = shift;
     if ( not exists $self->{'binDir'} )
     {
         warn "Object member binDir not set";
         return "";
     }
    $self->{'binDir'} = shift if @_;
     print "Returning binDir.\n";
     return $self->{'binDir'};
}