Select Code to Download

#!/usr/bin/perl -w
use strict;
...
90     gr1    2004-06-15
55     gr4    1999-06-15
etc ...

#!/usr/bin/perl -w

...
        print F "$_  gr".int(rand(10))."  ". (1990+int(rand(25))) . '-
+0'. (int(rand(10))) . '-' . (10 + int(rand(20)) )."\n";
}
close F;

my code:

...
real    0m3.497s
user    0m3.452s
sys     0m0.036s