Select Code to Download

use strict ;
use warnings ;
...
waitpid( $pid, 0 ) ;
warn "Failed\n" if ( $? << 8 != 0 ) ;
close($filedata) ;

use strict ;
use warnings ;
...
    }
    close( $fh ) ;
}

use strict ;
use warnings ;
...
    print $fh "$i\n" ;
}
close $fh ;