Help for this page

Select Code to Download


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

use constant BASE => 'mybase';
print "BASE: ", BASE, "\n";
  2. or download this
    !/usr/bin/perl -w
use strict;

my $BASE = 'mybase';
print "BASE: $BASE\n";