Select Code to Download

perl -MText::Diff -e '$size = 10; @a = sort map { int rand(100) } 1..$
+size; @b = sort map { int rand(100) } 1..$size; print diff \@a, \@b, 
+{ STYLE => "Table" };'