use strict;
use POSIX qw( sin );

my $s = \&sin;

print $s->( 0.5 ), "\n";