Help for this page

Select Code to Download


  1. or download this
    my $verbose = ("@ARGV" =~ /\-v/) ? 1 : 0; #: verbose mode if ("@ARGV" =~ /\-v/)
  2. or download this
    use Getopt::Long;

...
if ($VERBOSE) {
  ...
}
  3. or download this
    sub help { ...
   ...
   ...
}