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