Select Code to Download

open ( SCRIPT, "| /usr/local/bin/my_program" ) or die $!;

...
    close( FILE );
}
close( SCRIPT );

    while ( chomp( my $line = <FILE>) ) { print SCRIPT "$line\n"; }