my $cmd = <STDIN>;
    print Writer $cmd;
    my $got = <Reader>;
    print $got;