Help for this page

Select Code to Download


  1. or download this
    package Constants;
    use base Exporter; @ISA = qw (Exporter);
    ...
    @EXPORT = qw( $var1 $var2);
    $var1 = \'val1';
    $var2 = \'val2';
    
  2. or download this
    use constant  B_OGUS  => 0620;