Select Code to Download

> ./packbug2
data before modification 160.22
...
Complete documentation for Perl, including FAQ lists, should be found 
+on
this system using "man perl" or "perldoc perl".  If you have access to
+ the
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.

#!/bin/perl

...

# Verify packed data is different
print "packed data is the same, utter madness!!!\n" if ($pack1 eq $pac
+k2);