#!/bin/env perl
use strict;
use warnings;
use strict;
use 5.010;

use local::lib './lib';
use Net::DNS;
use Test::LeakTrace;

die("ERROR: Please provide Loop count > 0 as first argument") unless $ARGV[0];

leaktrace {
    for (1..$ARGV[0]) {
        my $res = Net::DNS::Resolver->new;
        my  @mx = mx($res, "example.com");
    }
} ;