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