#!/perl/bin/perl -w

print "Bitte geben sie eine Zahl ein:\n";
$zahl1 = <STDIN>;
print "Bitte geben sie erneut eine Zahl ein:\n";
$zahl2 = <STDIN>;

chomp($zahl1);
chomp($zahl2);
$nenner = (1 / $zahl1) + (1 / $zahl2);           
$FMass = 2 / $nenner;                                 
$Recall=$zahl1 / $zahl2;                    

print "\nRecall = $Recall\n\nF-Mass = $FMass\n  "