#!/usr/bin/perl
use GMS::MemberFile;

%member;

tie(%member,"GMS::MemberFile", MEMBER=>'Iron', GENFILE => 0, UID=> 1);
print "The UID for the new member is $member{UID}\n";
print "Did Ini Exit already?";