#!/usr/bin/perl print "Enter a number\n"; chomp($a=); print "Enter second number\n"; chomp($b=); print "Enter third number\n"; chomp($c=); $big=0; $equal=0; if($a eq $b){ $big = $a; $equal = $a; } elsif($a > $b){ $big=$a; } else{ $big = $b; } if($equal eq $c){ print "All numbers are same"; } elsif($big < $c){ $big = $c; } else{ print "The biggest number is $big \n"; } #### $ perl 878546.pl Enter a number 1 Enter second number 2 Enter third number 3 $ #### #!/usr/bin/perl print "Enter a number\n"; chomp($a=); print "Enter second number\n"; chomp($b=); print "Enter third number\n"; chomp($c=); $big=0; $equal=0; if($a eq $b){ $big = $a; $equal = $a; } elsif($a > $b){ $big=$a; } else{ $big = $b; } if ($big < $c) { $big = $c; } if($equal eq $c){ print "All numbers are same"; } else{ print "The biggest number is $big \n"; } #### $ perl 878546.pl Enter a number 1 Enter second number 2 Enter third number 0 All numbers are same #### #!/usr/bin/perl print "Enter a number\n"; chomp($a=); print "Enter second number\n"; chomp($b=); print "Enter third number\n"; chomp($c=); $big=0; $equal=0; if($a eq $b){ $big = $a; $equal = 1; } elsif($a > $b){ $big=$a; } else{ $big = $b; } if ($big < $c) { $big = $c; } if ($big != $c) { $equal = 0; } if($equal == 1){ print "All numbers are same"; } else{ print "The biggest number is $big \n"; }