There's no need to do it in Perl. Explore key layouts and mappings (and xev to grab keycodes) in X to learn how to do it. I personally use those keys for other functions.