my $foo = sub { sin(@_) }; print $foo->(0.5), "\n";