Select Code to Download

#!/usr/bin/perl -w

use strict ;
...

die "$0: incomplete record (line count = ", scalar @record, ") at end 
+of file \"$filename.\"\n"
  unless @record == 0 ;