#!/usr/local/bin/perl -w

use strict;
open FILE, "user/test" or die "Error: $!\n";
my %data = ();
while ( my $line = <FILE> ) {
    chomp $line;
    my ($key, $value) = split(/\s*:\s*/, $line);
    $data{$key} = $value;
}
close FILE;

print $data{password};
print $data{minatt};
print $data{maxatt};
print $data{exp};
print $data{gold};