#!/usr/local/bin/perl
warn atan2(1,1) * 4