#!/usr/bin/perl
use strict;
# read configuration parameters into hash

my $recordseparator = $CFG{'RECORDSEPARATOR'};
if (defined $recordseparator && $recordseparator ne '') {
   $/ = $recordseparator;
   print STDOUT ":$/:"; # for test
}
else {
  $/ = "\n";
}