#!/usr/bin/perl
use strict;
use warnings;
use CGI;

# Tworzenie obiektu CGI
my $query = CGI->new;

# Pobranie parametrów z QUERY_STRING
my $params = $ENV{'QUERY_STRING'} || "";

# Rozdzielenie parametrów i obliczenie sumy
if ($params) {
    my @numbers = split(/\+/, $params);
    my $sum = 0;
    
    foreach my $num (@numbers) {
        if ($num =~ /^\d+$/) {
            $sum += $num;
        } else {
            print "Content-type: text/plain\n\n";
            print "Błąd: Wszystkie parametry muszą być liczbami.\n";
            exit;
        }
    }

    print "Content-type: text/plain\n\n";
    print "Suma: $sum\n";
} else {
    print "Content-type: text/plain\n\n";
    print "Nie podano żadnych parametrów.\n";
}