Under Unix, a ksh or bash script should easily handle the requirement for you, but you could certainly do it in pure Perl.