programming-examples/perl/Subroutine/my ($program, $exitCode) = @_; creates two local variables, $program and $exitCode, from @_.pl

    #!/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);