#!/usr/bin/perl -w
#
# $Id: md5path,v 1.1 2004/09/21 20:10:48 vogelke Exp $
#
# print relatively random filename.

use strict;
use Digest::MD5 qw(md5_hex);
$|++;

my $file = md5_hex(md5_hex(time . {} . $< . $( . rand() . $$));
print "$file\n";
exit (0);