I'd put this in a shell script. Perl is kinda overkill for this job.

----
Reinvent a rounder wheel.

Note: All code is untested, unless otherwise stated