sub PI { 4 * atan2 1, 1 }
print "The value of PI is ${\~~PI}\n";