actually ignore the header

csv.pl

@@ -1,5 +1,5 @@
-#!/usr/bin/env perl -w
-#
+#!/usr/bin/perl -w
+
 $|=1 if $ENV{DEBUG};
 use strict;
 use diagnostics;
@@ -38,7 +38,7 @@ foreach my $station (@stations) {
 	my $last = getlatest($station);
 	print "[$station] Last record was $last\n" if $ENV{R_DEBUG};
 	foreach my $line (sort split(/^/m, $content)) {
-		next if $line =~ /Timestamp (UTC)/;
+		next if $line =~ /Timestamp/;
 		chomp($line);
 		my ($ts, $level) = split(/,/, $line);
 		if($ts le $last) {