print_dir ( "YOUR/DIRECTORY/PATH" );

sub print_dir {
  my ($dir_name) = @_;
  opendir ( my $dir_h , "$dir_name")  or die "Unable to open dir :$dir_name: $!\n";

  while ( my $file = readdir($dir_h) ) {

     next if ( "$dir_name/$file" =~ /\/\.$/ or "$dir_name/$file" =~ /\/\.\.$/ );
     
     if ( -d "$dir_name/$file" ) {

       print_dir ( "$dir_name/$file" );
     }
     print "$dir_name/$file - "."\n";
  }

}