#!/usr/bin/perl -w
use strict;
use diagnostics;
use Storable qw( nfreeze thaw );
die "USAGE: hashbrowns.pl <server></server> <ipaddress> <function>\n"
   unless @ARGV == 3;

my $server = $ARGV[0];
my $ipaddr = $ARGV[1];
my $funct  = $ARGV[2];
#
open SERVERS, ">>homefries.db"
   or die "Hold on there buckaroo: $!\n";
my $boxen = {
   'host' => "$server",
   'address'=> "$ipaddr",
   'funct' => "$funct",
};
my $sirinfo = nfreeze( $boxen );
   $_ = unpack("H*", $sirinfo) ."\n";
print SERVERS $_;
print "$boxen->{host}\n";
print "$boxen->{address}\n";
print "$boxen->{funct}\n";
#
close SERVERS;
exit;