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

##</code><code>##

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