#!/usr/bin/perl -w

use strict;
use Find::File

my $source = “/mnt/usbdisk”;

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