#!/usr/bin/perl testy() for 'i am a nice parameter'; sub testy { print "$_\n"; }