Generate private AS number

diff --git a/bin/bin/gen-asn b/bin/bin/gen-asn
new file mode 100755 (executable)
index 0000000..5f25e46
--- /dev/null
+++ b/bin/bin/gen-asn
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl
+
+my $start = 4200000000;
+my $end = 4294967294;
+print $start + int(rand($end - $start));
+print "\n";