sub print_rec {
    my $path = shift;
    opendir my $dir, $path;
    while( readdir($dir) )
    {
        if(!/\.|\.\./ && -d $_)
        {
            print "$_ is a directory\n";
            print_rec($path.'\'.$_);            
        }
        elsif (!-d) { print "$_ \n"; }
    }
}