#!/usr/local/bin/perl
print ("Introduceti temperatura de convertit:\n");
$originaltemp = <STDIN>;
chop ($originaltemp);
$Fah = $originaltemp * 1.8+32;
$Cel = ($originaltemp-32)/1.8;
print ($originaltemp, " Fahrenheit = ", $Cel,
     " Celsius\n");
print ($originaltemp, " Celsius = ", $Fah,
" Fahrenheit\n",'press ENTER to EXIT');
$in = <STDIN>;