用perl计算圆周长

要求：提示用户输入半径长，然后自动输出圆周长。
注：当用户输入的半径为负数时，返回结果为0.  圆周长=2*pi*半径 ， 其中pi=3.141592654

程序为：
#! /usr/bin/perl

print "please input the banjing:";
$bj=;
chomp $bj;
$pi=3.141592654;
  if ($bj<0) {
    $bj=0;
  }
  $zc = 2*$pi*$bj;
  print "the zhouchang is $zc.\n";