Select Code to Download

while (<>){
  # Read the each record and return one whole record
    $entry = SWISS::Entry->fromText($_);
...
    # block just read in.  The last element is //.

}