my $dir = shift // '.';