Select Code to Download

print $_ . ': ' . $erg{$_} . '<br />' . "\n" foreach (keys %erg);

my $erg = 0;
$erg += $erg{$_} foreach (keys %erg); 
print $erg,"\n";