The "no module" requirement makes this sound like a home work assignment. ..Tell you what, register yourself and tell me why you can't use a module, and I'll tell you a way how to do it.

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"