Select Code to Download

#
open my $READ, "-|",  "./dialog.pl";
while (<$READ>)
...
                print $_;
        }
close $READ;

print "How old are you? ";
my $age = <>;
print "You are $age.";