#!/usr/bin/perl

use strict;
use warnings;
use lib qw(.);
use Test;

my $test = Test->new();
$test->test();