use TwoWayHandle;
tie *ACDC, TwoWayHandle => (
  *STDIN,
  *STDOUT,
) or die "can't tie *ACDC: $!";

print ACDC "What's your name? ";
$name = <ACDC>;
chomp $name;
print ACDC "Hello, $name.\n";