Select Code to Download

#!/usr/bin/perl -w
use strict;
use IPC::Open3;
...
    waitpid( $pid, 0 );
    close LOG;
}