Select Code to Download

# The 'source' file ("constants.plx")
use constant {
...
    BAR => 2,
    QUX => 3
};

#!/usr/bin/perl -wl

BEGIN { do "constants.plx"; }

print "Foo: ". FOO. "\nBar: ". BAR. "\nQux: ". QUX;

Foo: 1
Bar: 2
Qux: 3