#!/usr/bin/perl

use strict;
use warnings;

my ($fred, $barney);

sub max {
  print "You are using the subroutine max";
  if ( $fred gt $barney ) {
    $fred;
    } else {
    $barney;
    }
}

my $n = &max(10, 15);
print "$n";