use Sys::Hostname;
use Socket;
use Digest::MD5;
my $hostname = hostname();
my $address  = gethostbyname($hostname);
my $ip = inet_ntoa($address);
my $key = "1234567"; # arbitray number
my $md5 = Digest::MD5->new;
$md5->add($key, $ip);
my $license = $md5->hexdigest;