#!/usr/bin/perl -w
print "Enter the radius: \n"; chomp ($radius = <STDIN>); $area = $radius*$radius*3.14
if ( $radius <= 0 ) { print "The area is zero\n"; } else { print "The area is $area\n"; }
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]