# in main file

sub main {
 # declare, then localize:
 our (
  $ItemNumber,
  %CFL, @CFD,  #Customer 
  %DFL, @DFD,  #Destination
  %IFL, @IFD,  #Item
  %MFL, @MFD,  #Master
  %SFL, @SFD,  #Description
  %UFL, @UFD   #User
 );

 local (
  $ItemNumber,
  %CFL, @CFD,  #Customer 
  %DFL, @DFD,  #Destination
  %IFL, @IFD,  #Item
  %MFL, @MFD,  #Master
  %SFL, @SFD,  #Description
  %UFL, @UFD   #User
 );

 # set some values:
 $ItemNumber = 6;

 # call other subs.  Can be in other lexical locations, but MUST
 # be in the same namespace for this 'our' to work!
 child_sub1();
}