#!/usr/bin/perl -w
use latest;
use File::Spec;
my $test=$ARGV[0];
my $ds='/';
sub bfs
{
    my $path=$_[0];
    push(my @queue,$path);
    my ($current,@output);
    while(@queue)
    {
        $path=shift(@queue);
        if($path=~/${ds}\.{1,2}$/){next}
        opendir($current,$path) or open($current,$path) or next;
        if(-d $current)
        {
            push @queue,map {File::Spec->catfile($path,$_)} readdir $current;
            closedir $current
        }
        elsif(-f $current)
        {
             say $path;
             close $current;
             push @output,$path;   
        }
    }
    @output;
}
bfs($test);