Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
 my $third = sprintf('%04d', int rand 9999);
 print FH  "$first-$second-$third\n";
}
  2. or download this
    #!/usr/bin/perl
use warnings;
...
END:
}