1  $celsius = 20;
  2  while ( $celsius <= 45 ) {
  3    $fahrenheit = ( $celsius * 9/5 ) + 32;
  4    print "$celsius C is $fahrenheit F\n";
  5    $celsius = $celsius + 5;
  6  }