#!/usr/bin/perl

use CGI ('param');
use CGI::Carp ('fatalsToBrowser');

$a = param("anzahl");

$p = param("preis");

$gesamtpreis = $a * $p;


print "Content-Type: text/html\n\n";

print "Ihre Bestesllung über $a Stück wurde angenommen. Gesamtpreis: $gesamtpreis\n";