I suspect that the following line is incorrect:

$lc->new( \@three, \@two );
[download]

Try changing that to:

$lc = List::Compare->new( \@three, \@two );
[download]

(and ditto for the subsequent similar lines)

Cheers,
Darren :)