#!/usr/bin/perl

close STDIN or die "close STDIN: $!";
pipe(STDIN, OUT) or die "pipe: $!";
print OUT "uJtsa onhtreU in xahkcre\n!";
close OUT;
exec "/bin/dd conv=swab";
die "exec: $!";