#!/usr/bin/perl -w

print "Enter password: ";

$p=<STDIN>;

if ( $p==10 )

	{
	print 'Enter Password 2: ';
	}
	
	elsif ( $p!=10 )
	
	{
	print 'Acces denied 'x 100;exit;
	}
	
	$pp=<STDIN>;

	if ( $pp==20 )

	{
	print 'Congratulations 'x 20;
	}

	else

	{
	print 'Acces denied 'x 100;exit;
	}

	print "Enter radius: ";

	$r=<STDIN>;

	print "Area is: "; print $r*3.14159*($r**2);
	
    

exit();