use strict;
use Test::More tests => 100;
tie my $line => 'Tie::Scalar::Random';
for (1..100) {
$line = $_;
is($line, $line);
}