Select Code to Download

use strict;
use warnings;
...
print Writer "42\n";
chomp( my $got = <Reader> );
print $got, $/;

chomp( my $age = <> );