Seems like a lot to ask from a *simple* script. Luckily there are modules that can do most of the heavy lifting.

Have a look at SimpleScripts::Perl

Is there something in particular you are having trouble with?