my ($program, $exitCode) = @_; creates two local variables, $program and $exitCode, from @_.
#!/usr/local/bin/perl -w
# Declare the subroutine named usage
sub usage
{
my ($program, $exitCode) = @_;
print "Usage: $program [-v] [-h]\n";
exit $exitCode;
}
usage ($0, 1);
Related examples in the same category