S69/1 - Zahlen einer Liste bzw der Standarteingabe summieren

In dieser Übung soll ein kleines Perl-Skript geschrieben werden, dass die Zahlen einer Liste addiert. Der Hauptteil wird vorgegeben, man soll eine funktionierene subroutine aka Unterfunktion schreiben.

#!/usr/bin/perl -w
# total of a list of numbers

my @fred = qw{ 1 3 5 7 9 };
my $fred_total = total(@fred);
print "The total of \@fred is $fred_total.\n";
print "Enter some numbers on separate lines (end with Strg-D: ";
my $user_total = total();
print "The total of those numbers is $user_total.\n";

sub total
{
$summe=0;
foreach $zahl ( @_ )
{
$summe += $zahl ;
}
return $summe;
}