my $statsfile = ("$config{username}.dat");
if (-e $statsfile) {
        system("touch $statsfile && echo 1 > $statsfile");
}
open(STATS, '+>', "$statsfile") or die "Error: Couldnt open $statsfile";
my @globatts = <STATS>;
my $globalatts = $globatts[0];