I can't even do that in C, how the heck would I be able to do that in perl? :-)