fork download
  1. #/usr/bin/perl/
  2.  
  3. $cel = '0';
  4. $fahr = '0';
  5.  
  6. print 'Enter temperature in Celsius: ';
  7. $cel = <STDIN>;
  8.  
  9. $fahr = $cel * 9/5 + 32;
  10.  
  11. print "$cel degrees Celsius in Fahrenheit is $fahr.";
  12.  
  13.  
Success #stdin #stdout 0s 4596KB
stdin
46
stdout
Enter temperature in Celsius: 46 degrees Celsius in Fahrenheit is 114.8.