my $x = ...;
print 3.14 * $x;