Select Code to Download

use Readonly;

Readonly  $test1 => 'EEN';
Readonly  $test2 => 'TWEE';
Readonly  $test3 => 'DRIE'

use strict;

do 'test.pl';
...
print "$main::test1 $main::test2 $main::test3";

$main::test1 = 1;