Select Code to Download

use Socket;
use IO::Handle;
...
exec "./fill.pl" or die "Can't start my program: $!\n";

shutdown(CHILD,1);

#!/usr/bin/perl

...
$a=<STDIN>;
if ($a =~ /yes/) {print "bla bla bla";exit 0;}
else {goto ASK;}