sub explore_dir {
    my ($path) = @_;
    my @dir_entries = glob("$path/*");
    foreach my $entry (@dir_entries) {
        print "$path$entry\n" if -f $entry;
        explore_dir($entry) if -d $entry;
    }
}
explore_dir($start_path);