Adjusted perl harvester script to connect to databse.