ChemicalJames

package Temperature;
use strict; use warnings;

sub f2c {
	my $f = shift;
	my $c = (5/9) * ($f - 32);
	return $c;
}
sub c2f {
	my $c = shift;

ChemicalJames

#!/usr/bin/perl -w
 use strict;
 foreach (0..8)
 {
  my $line = <>;
  print "$_ : $line";
 }