use LWP::Simple; use XML::Simple; use strict; my( $username, $password ); print "Username: "; chomp( $username = <> ); print "Password: "; chomp( $password = <> ); $username && $password or die "Abort.\n"; my $t = XMLin get "http://perlmonks.org/?node_id=32704;op=login;user=$username;passwd=$password;ticker=yes"; my $total; my $n; while ( my( $id, $hr ) = each %{ $t->{'NODE'} } ) { $total += $hr->{'reputation'}; $n++; } print "$total rep in $n nodes\n";