16. Discovery Q8

#!/usr/bin/perl
# program name: discovery8.pl
print("enter number in inches: ");
$number = <STDIN>;
$convertion = ($number*2.54);
print "$number =$convertion centimetres. \n";