Select Code to Download

print $oh "$NO\n", "events($@list)\n", "$SEC1, $LONG, $LAT, $DEPTH, $G
+AP\n";

print $oh "$NO\n", events($@list), "\n$SEC1, $LONG, $LAT, $DEPTH, $GAP
+\n";

#!/usr/bin/perl; 
use strict;
...
}
close ($oh);
close ($ih);