#!/user/bin/perl 
print("Enter 1 for C to F or 2 for F to C"); 
$choice=<>; 
given($choice);{ 
  when(1){ print( "Enter Temp in C "); 
           $c=<>; 
	   $g = (9/5) * $c + 32; 
	   print ("Temp in Farenhite is: $g"); 
         } 
  when(2){ print ("Enter Temp in F: "); 
           $f=<>; 
	   $h = (5/9)* ($f - 32); 
	   print ("Temp in Celsius Is: $h"); 
	  } 
  default { print ("ERROR! input must be a 1 or 2"); 
}

owner@owner-desktop:~/PERL-LAB$ perl temp.pl 
syntax error at temp.pl line 5, near "){" 
syntax error at temp.pl line 10, near "){" 
syntax error at temp.pl line 14, near "}" 
Execution of temp.pl aborted due to compilation errors. 
owner@owner-desktop:~/PERL-LAB$

use feature qw () #this will allow u to use the switch

#!/user/bin/perl 
use feature qw (); 
print "Enter 1 for C to F or 2 for F to C "; 
$choice=<>; 
given($choice){ 
  when(1){ print "Enter Temp in C "; 
           $c=<>; 
	   $g = (9/5) * $c + 32; 
	   print "Temp in Farenhite is: $g"; 
         } 
  when(2){ print "Enter Temp in F: "; 
           $f=<>; 
	   $h = (5/9)* ($f - 32); 
	   print "Temp in Celsius Is: $h"; 
	  } 
  default { print "ERROR! input must be a 1 or 2"; 
          } 
}

owner@owner-desktop:~/PERL-LAB$ perl temp.pl 
syntax error at temp.pl line 5, near "){" 
syntax error at temp.pl line 10, near "}" 
syntax error at temp.pl line 15, near "}" 
Execution of temp.pl aborted due to compilation errors. 
owner@owner-desktop:~/PERL-LAB$

use feature qw(switch);