#!/usr/bin/perl $temp=$ENV{'QUERY_STRING'}; @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } $zbroj=$fields{'prvi'} + $fields{'drugi'}; print "Content-type: text/html\n\n"; print "\n"; print "

$fields{'prvi'} + $fields{'drugi'} = $zbroj";