#!/usr/bin/perl
use 5.008;
use strict;
use autodie;
use warnings FATAL => 'all';
use lib ('/opt/perl5/lib');
my $global = 42;
print "start";
sub abc {
print 1;
my $private = 42;
sub def {
}
print 2;
}
print "ok";
sub xyz { }
print "end";