sub opdir {
    my $Dir = shift;