Select Code to Download

#!/usr/bin/perl

...
      print "\n";
      my $serial=($query->answer)[0]->serial, if ($query);
      print "serial:  $serial\n";

[root@ns01 jzack]# ./snippet 
IPV4 test...
...

serial: