use Fatal qw( close ); close STDIN; close STDOUT; pipe my ($message_in, $message_out);