Select Code to Download

pipe(TALK,LISTEN);
my $child = fork();
...
        print TALK "commands\n";
    }
}

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try