#!/usr/bin/perl # $count=10000; while (TRUE) { $count++; $newname="Slug" . $count . ".jpeg"; `cp Slug.jpeg $newname`; sleep (30); } exit;

Last modified September 19 1997 05:00 PM