in reply to Seeking guidance for more idiomatic way of (re)writing this script.
All thanks to the suggestions put forth by topher, keszler, Athanasius and two anonymous monks that I was able to write a much better version of the original script and in the process learnt some new stuff. Thank you for all your suggestions. I have tried to incorporate them in the updated script uploaded in the Cool Uses For Perl Section. Thank you once again Monks.
Perlpetually Indebted To PerlMonks
print "Awesome Books";