#!/usr/bin/perl

my $config_file="cfg.txt";

open(config, $cfg_file);
flock(config, 2);
LINE: while(<config>) {
	chomp;
	next LINE if(/^$/); #Skip blank lines
	my ($HOSTNAME,$IP) = split(/|/);
	my $temp = {HOSTNAME => $HOSTNAME,IP => $IP};
	next LINE;
}
print $temp;