my $coderef = sub {shift;};
sub doit{
       print shift, $/;
       }
&doit($coderef->("Hello from down under"));