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

my ($eth) = `ifconfig` =~ /HWaddr (\S+)/;
$eth =~ s/\W//g;
{
    no warnings 'portable';
    srand hex $eth;
}

say rand for 1 .. 10;