#!/usr/bin/perl use File::Find; #find (\&testy, "."); $_ = 'Main Line...'; testy ('i am a nice parameter'); print "$_\n"; sub testy { local $_ = shift; #Localizing it is cool, also..... print "$_\n" ; } __END__ ~Output~~ i am a nice parameter Main Line...