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

    Source: geocities.com/robinchatterjee