#!/usr/bin/perl

use strict;

my $username = shift @ARGV;
$username =~ s/\.txt$//;
$username =~ s/^data\/userdata\///;
my $total = 0;

open my $userfile, '<', "data/userdata/$username.txt" or die "Error opening 'data/userdata/$username.txt': $!\n";
while(<$userfile>) {
  my @a = split /\t/, $_;
  $total += $a[1];
}

print "$username\t$total\n";