sub Learn ($);  sub expand ($);  sub smile ();

Learn $Perl, expand $wisdom && smile;