my $pi = 4 * atan2 1, 1;
while (1) {
    print "Angle? ";
    chomp ( my $angle = <STDIN>);
    last if $angle eq '';
    print sin( $angle * $pi / 180 ), $/;
}