1#!/usr/bin/perl 2# 3# $Id: logger.pl 523 2008-10-23 14:19:24Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use Data::Dumper; 10 11use DNSCheck; 12 13###################################################################### 14 15my $logger = DNSCheck->new->logger; 16 17$logger->add("level1", "tag1", 1, 2, 3); 18$logger->add("level2", "tag2", 4, 5, 6); 19 20my $log = $logger->export(); 21 22foreach my $line (@{$log}) { 23 print Dumper($line); 24 print "---\n"; 25} 26