Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "$prev_name $name\n" if defined $prev_name;
    $prev_name = $name;
}

Ann John
John Michael
Michael George
George Smith