#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $TargetPath = $ARGV[0];
find (\&ProcessTree,$TargetPath); 

sub ProcessTree
{
print "Directory: $File::Find::name\n" if -d;
print "File: $File::Find::name\n" unless -d;
}