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

&doit($val);