use consts; our ($VAR1, $VAR2); print "Import...\n"; print "VAR1 : [$VAR1]\n"; print "VAR2 : [$VAR2]\n"; sub logging_func() { print "Running function...\n"; print "VAR1 : [$VAR1]\n"; print "VAR2 : [$VAR2]\n"; } 1;