system("perl load.pl");
sleep 2;
for($tag = 1; $tag <= 12; $tag++) 
{
$t = $tag < 10 ? $t = "0".$tag : $tag;
system("perl $t.pl");
sleep 2;
}