1  $celsius = 30;
  2  # convert Celsius to Fahrenheit:
  3  $fahrenheit = ( $celsius * 9/5 ) + 32;
  4  # print both temperatures:
  5  print "$celsius C is $fahrenheit F\n";