use strict;
use warnings;

my ($fg, $cg);

while (1)                               # Endlosschleife
  {
  print "Temperatur in Fahrenheit: ";
  chomp($fg = <STDIN>);
  last unless $fg;                      # Ende bei Leereingabe
  $cg = ($fg - 32) * 5 / 9;
  print "$fg Fahrenheit entsprechen $cg Celsius\n";
  }