#!/usr/local/bin/perl
# Jaime Prilusky 2007

use English;

  my $file = $ARGV[0] || "../data/small_swiss.dat";
  my $separator = $ARGV[1] || "\n";

  readFile($file,$separator); 
  
sub readFile {
  my($file,$separator) = @_; 
  my $currentRS = $RS; $RS = $separator; # Keep current Record Separator
  local(*IN); open(IN,$file) || die "Can't open $file, $!\n";
  while (my $l = <IN>) {
    print "\nREAD $NR:\n$l\n";
  }
  close(IN);
  $RS = $currentRS; # Restore Record Separator
  return;
}