#!/usr/bin/perl -w
use strict;
use English '-no_match_vars';

my $sum = 0;
$sum += $_ for localtime;

print substr(crypt($sum * $UID / $EGID, rand $PID), 2, 9);