Select Code to Download

@dates = `mysqlshow --password=\'xxxxxxx\' pzbg001`;
shift @dates;
...
        $date =~ s/Tables//g;
        $date =~ s/\+//g;
...

@dates = map { /^\|\s+([\d_]+)\s+\|$/ } `mysqlshow --...`

   $query = "select $result from $date where inintf=$inint";

# get the list of tables (table names are \d+_\d+_\d+):
my @dates = map { /^\|\s+([\d_]+)\s+\|$/ } `mysqlshow --...`
...
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;

# and on to the web page...