Select Code to Download

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

package Parse; 
sub parse_file { 
...
  # put data in database, etc.  this all works file 
} 
return 1;

package Moving;
sub move_file {
...
  # move a file, rename it, etc
} 
return 1;