Select Code to Download

#!/usr/bin/perl -l
$N=pop;print 1/$N*grep{%h=map{int
rand(10),1}1..$ARGV[0];10==keys%h}1..$N

#! /usr/bin/perl
use strict;
...
  }
}
print $i, "\n";