Perl Script for redirection mapping

Wrote a small Perl script to create mapping of blog archive files from my CS account to my current blog. The mappings have been created because a lot of pages on my old blog are indexed by Google. And I do not want those search results to produce a '404 not found' error.

For example,
http://www.cs.utk.edu/~maisnam/blog/archives/000007.php (old)
will be mapped to:
http://blog.maisnam.com/archives/000007.php (new)

The script is available here for download.

I have modified the script to just suit my current needs (Because I am so lazy! :) ). Right now, I have only about 40 files in my old blog. But the script will work for any number of files in a directory. There are some bugs to sort out though. Guess I will work on it later.