Select Code to Download

#!/usr/bin/perl
use strict;
...
print "\nline 1: $line1\n";
print "line 2: $line2\n";
print "\nvariance: $variance\n";

[0] Perl> $x = join '', map chr( rand 256 ), 1 .. 1000;;
[0] Perl> print unpack '%8b*', $x;;
...
3887
[0] Perl> print unpack '%64b*', $x;;
3887