@###.## degrees Celsius equals: $tempconv{temp}
@##.# degrees Fahrenheit $fahrenheit
@##.# Kelvin $abs1 . } else { print "An illegal character was entered.\n"; die } } else { if ($tempconv{temp} =~ /-?(\d+)\.?(\d+)|-?(\d+)/) { $celsius = 5/9 * ($tempconv{temp} - 32); $abs2 = $celsius + 273.16; $~ = "TEMP2"; write; format TEMP2 =
@###.## degrees Fahrenheit equals: $tempconv{temp}
@##.# degreess Celsius $celsius
@##.# Kelvin $abs2 . } else { print "An illegal charcter was entered.\n"; die } } }