Select Code to Download

#!/usr/bin/perl
use warnings;
...
     }
    return $init;
  }

#!/usr/bin/perl
use warnings;
...

  my $lar_value=max($a,$b,$c);
  print $lar_value, " is the greatest\n";