Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
require "subs.pl";

# declare and define config
my %CONFIG = ('key' => 'value');
  2. or download this
    sub test { print $CONFIG{'key'}; }
1;