my @r = `dd if=infile of=outfile 2>&1`;
foreach (@r) {
    chomp;
    print "***$_***\n";
}