#!/usr/bin/perl

use Sys::Hostname;

sub seed {
	my $string = shift;
	my $seed;

	my @ascii = map ord, split //, $string;
	while ( <@ascii> ) { $seed += $_ };

	srand $seed;
}

my $hostname = hostname;
seed ( $hostname );