package Parse;

use File::Copy;
use Cwd;
use Switch;
sub parse_file {

use DBI;
use DBD::mysql;
$dsn = "DBI:mysql:test:localhost";
$dbh = DBI->connect($dsn,"root","",{RaiseError=>1});
$newlocation = "/data/processed/";

$file = $_[0];
print "file is $file\n";

open(INFILE, $file) or die ("Unable to open $file"); 
while ($line = <INFILE> )  {
# parse the file, put stuff in db
}   #end while

print "done parsing\n";
$dbh->disconnect();
close(INFILE);

}  # end function

return 1;