use Data::Dumper 'Dumper';
use Devel::CodeDiff 'code_diff';

my @d = code_diff( sub { print @_ },
                   sub { print @_ or die $! } );

# Fixup the output so it is less verbose
for ( @d )
{
    for ( @$_ )
    {
        $_->[2] =~ /\[(.+)\]/ and $_->[2] = $1;
        $_ = join " ", @$_;
    }
}

print Dumper( @d );