dd if=infile of=outfile 2>&1


##</code><code>##

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

##</code><code>##

***0+1 records in***
***0+1 records out***

##</code><code>##

# BAD CODE
my @r = `dd if=infile >outfile 2>&1`;