Select Code to Download

#!/usr/bin/perl -w
use strict;
...
#        warn "mv failed with rc:$?\n" unless $? >> 8 == 0; # or whate
+ver?
    }
} while(sleep 10);