#!/usr/bin/perl -w
use strict;
use diagnostics;
use Storable qw( nfreeze thaw );
my ($server,$ipaddr,$funct,$boxen,@fields);
open SERVERS, "/tmp/homefries.db"
   or die "Hold on there buckaroo: $!\n";
   while (<SERVERS>) {
   my $frozen = pack "H*", $_;
   my $fields = thaw($frozen);
   my ($server,$ipaddr,$funct) = @$fields;
}
close SERVERS;
exit;