Select Code to Download

#/usr/bin/perl
# call this with perl prog.pl output_file input.db

...
while (<>) {
  # do something
}

# to be inserted into the while loop above
my @lines = split /\n/, $_;