#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
use XML::Simple;

print "Username: "; my $user = <STDIN>; chomp $user;
print "Hostname: "; my $host = <STDIN>; chomp $host;

my $key = md5_hex ( $user .'@'. $host);
print "The key to configure is: [$key]\n";