elsif ($refsum==12.2) {
   my $diameter=$ARGV[3];
   $answer=$diameter*$pi;
 }