Select Code to Download

#!/usr/bin/perl -w
use strict;

...
foreach (0 .. $#prev) {
    print $prev[$_] if ($prev[$_] ne $current[$_]);
}

grep> cd pub
grep> more beer