$ perl traffic.pl
Use of uninitialized value in pattern match (m//) at traffic.pl line 36.
Use of uninitialized value in concatenation (.) at traffic.pl line 41.
This clli appears to be OK. :
$