my $ref = \&test;
$ref->(1);

sub test{
   print "param: ", shift,"\n";
}