Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    $csv->print(select, $row);
}
$csv->eof or $csv->error_diag;

"Feb  2, 2018 18:06:49.993152000 ";"172.16.13.158";"1169";"151.101.112
+.102";"443";"[\0vSSL.Slack"
"Feb  2, 2018 18:06:49.993349000 ";"172.16.16.75";"26504";"31.13.86.8"
+;"443";"[\0wSSL.Facebook"
...
"Feb  2, 2018 18:06:50.002442000 ";"192.167.175.103";"1169";"107.154.5
+0.239";"21120";"Unknown"
Use of uninitialized value in split at ./dpi.pl line 9, <> line 11.
"";;;;;""