my $a;
$a = srand();
$a = srand($a);
srand($a)
