use strict;
use warnings;

search_dir (shift);

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