Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. 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);