disable diagnostics

stack-years.pl

@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use diagnostics;
+# use diagnostics;
 use DBI;
 use POSIX;
 use Data::Dumper;
@@ -15,7 +15,6 @@ my $getdata_st = $db->prepare("select strftime('2000-%m-%dT%H:%M:%S.000Z', times
 
 $years_st->execute($station);
 my @years = @{$years_st->fetchall_arrayref};
-print STDERR Dumper(@years);
 
 my %data;
 foreach my $y_ref (@years) {