##
use warnings;
use strict;
my $config;
BEGIN {
if ($^O eq 'MSWin32') {
use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 );
# load $config from registry
} else {
# else load $config from flat files
}
} # end system specific compile time code
##
##
BEGIN {
print "-one-";
BEGIN {
print "-two-";
BEGIN {
print "-three-;
} # end of block that prints "-three-"
} # end of block that prints "-two-"
} # end of block that prints "-one-"