#!/usr/bin/perl -w
use strict;

my ($v,$n,$l);

$v = srand( time() ^ ($$ + ($$ << 15)) );  #Camel 2nd pg 223

sub sid {
	#random character from a PM post, can't remember whose
	my @Chars = split '','abcdefghijkmnopqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ23456789';
	for (1..($ARGV[0] ||= 1)){
   		for (1..7){
    			$l .= $Chars[rand @Chars];
		}
	}
	$n = int( rand 1000000);
}