#! /usr/local/bin/perl -w
use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat)=localtime;
print "Password: " . reverse(substr(crypt((($sec+$min+$hour+$mday+$mon+$year+$wday+$yday+$isdat) * $< / $)),rand($
$)),2,9)) . "\n";