#!/usr/bin/perl -w

$check = mycheck($#ARGV);

if ($check != 1) {
	$usage = "Help arguments have been found";
	print $usage, "\n";
}


sub mycheck {
my($#ARGV) = @_; 
	$return = 0; #Variable RETURN set as false (set as 0)
	foreach $arg (0 .. $#ARGV) {
		if (($arg eq '-help') || ($arg eq '-h') || ($arg eq '--help')) {
		$return = 1; #Variable return now is true
		exit;
		} else {
		print "No help arguments found\n";
		}
	}
return $return
}