my ( $data_source, $database, $port, $user_id, $password ) = qw( "PIKACHU\NetSDK", "HarvestDay", "127.0.0.1:2433", "HarvestReader", "reader" );