پیدا کردن بزرگترین عدد یک لیست

#!/usr/local/bin/perl

# A function that returns maximum 
# number of a list. list provided
# from command line arguments.

use strict;
use warnings;

sub max {
	my $m = shift @_;
	foreach my $i (@_) {
		if ($i > $m) {
			$m = $i;
		}
	}
	return $m;
}

print max(@ARGV), "\n";