print function?

[Jasmine]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

hi

I dont understand exactly how does the print function work. I have a script 
that keeps complaining:
Use of uninitialized value in concatenation (.) or string at ./report.pl line 
33.
when i put -> print "$srcip $dstip \n";

But the script works when i put -> print "$srcip \n";
Can a guru explain please? 

while (my (@array) = $query -> fetchrow_array) {

                        my ($srcip, $dstport, $count, $dstip) [EMAIL PROTECTED];
                        my ($A1, $B1, $C1, $D1) = (split /\./, $srcip);
                        my ($A2, $B2, $C2, $D2) = (split /\./, $dstip);

                                if ($A1 != 111  || $B1 != 222 || $C1 != 333) {
                                        print "$srcip $dstport\n";
                                }
}

- -- 
Jasmine Chua
Security Engineer

SecureCiRT Pte Ltd
Blk 750C Chai Chee Road
#04-01 [EMAIL PROTECTED]
Singapore 469003
Tel: 6243 6800 DID: 6243 6802
Fax: 6441 5119
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+hgohNgvTa7Hj2AURAm5VAJ4qulCNohQzYX/6XU5KtW9vJJ0vYgCdH5T6
A98hagKIiPW+OYX0TB+tANs=
=JwSx
-----END PGP SIGNATURE-----


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]