paste diff

pdiff.pl

#!perl

use sane;
use Text::Diff;

my ($a, $b) = '';

system 'clear';

say 'Paste A (Ctrl-D to end)';
while (my $line = <STDIN>) {
    $a .= $line;
}

system 'clear';

say 'Paste B (Ctrl-D to end)';
while (my $line = <STDIN>) {
    $b .= $line;
}

system 'clear';

say diff(\$a, \$b);