#!/usr/bin/perl -w
use strict; 

use File::Find;

my $start_dir = "C:/"; 

find (\&print_all_directories, "$start_dir");

sub print_all_directories
{
    return if !-d; 
    my $full_dir_path = $File::Find::name;
    print "$full_dir_path\n";
}