for ($loop=1;$loop< 30;$loop++)
{
$filename ="> fil".$loop;
open(CREAT,$filename);
close CREAT;
}

    Source: geocities.com/siliconvalley/park/8312

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)