Perl script used to gather network data