given ($convention) {
    when ('E') {
        print "east longitude $long radians\n";
    }
    when ('W') {
        $long = TWOPI-$long;
        print "west longitude $long radians\n";
    }
    default {
        print "error: $convention not valid\n";
    }
}