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