#!/usr/bin/perl -w

use strict;
use Find::File

my $source = “/mnt/usbdisk”;

sub Recursive
{
	my ($msg) = @_;
	print $msg, “\n”;
	my ($diskpathfile = ($File::Find::name));
	print $diskpathfile;
}
find (\&Recursive(“hello”), $source);