#/usr/bin/perl

for ( $i = 0; $i < 40; $i++)
{
   open (F, ">hizbullah$i.ram");
   print F "http://almashriq.hiof.no/lebanon/300/320/324/324.2/hizballah/films/hizbullah$i.rm";
   close F;
}
