language: Perl (perl 5.12.1)
date: 111 days 9 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13

#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
print 'Enter temperature in Celsius: '
$cel = <STDIN>;
 
$fahr = $cel * 9 / 5 + 32;
 
print "$cel degrees Celsius in Fahrenheit is $fahr.";