#!/usr/bin/perl

use File::Find;

find (\&testy, ".");

sub testy {

print $_;

}

##</code><code>##

#!/usr/bin/perl

use File::Find;

#find (\&testy, ".");
testy ('i am a nice parameter');

sub testy {

print $_;

}