#!/usr/bin/perl
use Data::Dumper;
use one;

my $x=one->new();
print(Dumper($x));