Yep exactly, a Perl script