Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my ($host,$date,$url_with_method,$status,$size,$referrer,$agent) = $li
+ne =~
    m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "
+(.*?)" "([^"]+)"$/;
print "$host\n$date\n$url_with_method\n$status\n$size\n$referrer\n$age
+nt\n";

Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 6.
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 6.
...
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 6.
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 6.
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 6.