package main;

my $id = DogTag->new(name=>"Smith",rank=>"private",serial=>'1234567');

print $id->name();