#!/usr/bin/perl -w

print $_ = ($ARGV[0] && $ARGV[0] =~ /\d+/) ? 2 * 3.141592654 * $ARGV[0] : 'please give me a number.', "\n";