You would, of course, have to implement the PrintUsage subroutine. Adding something like this to the top should do the trick:

sub PrintUsage{
print <<USAGE
  This is where you would type the error message
 that you want displayed if someone passes arguments
 to your script that you haven't specified, or if
 the syntax is wrong, etc.  
USAGE
;
}
[download]