#!/usr/bin/perl

use Data::Dumper;

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

exit 0;


package Test;

use strict;

sub new
{
    return bless {}, shift;
}

sub test
{
}

1;

__END__