Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Shift
#!/usr/bin/perl -w
use strict;
sub version {
    print "version\n";
}
my $option = shift;    # defaults to shifting @ARGV
version() if $option eq "-v" or $option eq "--version";
print "Hello, world.\n";