Not a Perl answer but ... what about ScriptIt? (Well .. there seems to be something spicy going on I can't find a download of the actual EXEcutable on MIcrosloths site. The page says "Click here to access scriptit.exe" but if you click that you'll only be able to download the documentation. /msg me if you want the EXEcutable (it was a free download and I did not find any info regarding the license conditions so what the heck, you paid for the OS already).

Jenda