#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  my($num,$buffer,$chunk);
  my $file = $ARGV[0] || "../data/small_swiss.dat";

  open(IN,$file);

  while ( $num = read(IN,$chunk,2000) ) {
    print "read  $num bytes.\n";
    $buffer .= $chunk;
  }

  close(IN); 

  print "Total ",length($buffer)," bytes.\n";