Select Code to Download

package GMS::MemberFile;
require 5.6.0;
use strict;
...
}

1;

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

...
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?";