#!/usr/bin/perl
 -w

print "\n Phytagorasrechner fuer C:\n\n";

print "\n Wert fuer A (in cm/ m): ";
chomp($a = <>);

print "\n Wert fuer B (in cm/ m): ";
chomp($b = <>);



$c =sqrt( $a**2 + $b**2);
printf("\n\n Berechneter Wert fuer C mit 2 Nachkommastellen: %.2f cm/ m\n", $c);