#!/usr/bin/perl

use strict;
use warnings;
use User;

my $user = User->new();
$user->name('test');

print $user->name();