use Parse; # my custom Parse.pm in /etc/perl/ 
<use Moving; # my custom Moving.pm in /etc/perl ..... 
foreach $file (@filelist) {
   Parse::parse_file($file); 
   Moving::move_file($file); 
   ...
}

##</code><code>##

package Parse; 
sub parse_file { 
   $file = $_[0]; 
  # put data in database, etc.  this all works file 
} 
return 1; 


##</code><code>##

package Moving;
sub move_file {
   $oldfile = $_[0]; 
  # move a file, rename it, etc
} 
return 1;