#!/usr/bin/perl

use File::Find;

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

sub testy {

print $_;

}