Your new method is returning $self->{FORM_VAR}, which is undefined. You want to return $self, your newly created and blessed object.

And you want to lose those prototypes.

Oh, and you want to use strict.

... which will lead you to an error in your name method, where $self is undeclared and undefined. You'll want my $self = shift;

... and then you might want to look into using packages other than main. :)