sub fred {
    my( $x, $y ) = @_;
    my $result = $x * $y;
    return $result;
}