programming-examples/perl/SystemFunction/print (4 x atan2 1, 1).pl

print (4 * atan2 1, 1);