Select Code to Download

while (1<2) {
     opendir (DIR, $dir) or die "cannot opendir $dir";
...
     }
sleep(10);
}