#!/usr/bin/perl -w

package Message;
use strict;

sub new
{
	my ($class) = @_;
	bless {
		_name		=> $_[1],
		_subject	=> $_[2],
		_message	=> $_[3],
	}, $class;
}

sub name
{
	my ($self) = @_;
	return $self->{_name};
}

package main;

use strict;

my $objType = "Message";
my $name = "John Doe";
my $subject = "money";
my $message = "FRN's should be outlawed.";
my $message_obj = Message->new($objType, $name, $subject, $message );

my $name2 = Message->name($message_obj);
print "\nMy name is $name2\n";

##</code><code>##

#!/usr/bin/perl -w

package Message;
use strict;

sub new
{
	my ($class) = @_;
	my $objref = {
		_name		=> $_[1],
		_subject	=> $_[2],
		_message	=> $_[3],
	};
	bless $objref, $class;
	return $objref;
}

sub name
{
	my ($self) = @_;
	return $self->{_name};
}

package main;

use strict;

my $objType = "Message";
my $name = "John Doe";
my $subject = "money";
my $message = "FRN's should be outlawed.";
my $message_obj = Message->new($objType, $name, $subject, $message );

my $name2 = Message->name($message_obj);
print "\nMy name is $name2\n";