#main code
use Send;
$name="lastname";
$obj=Send->new($name);
$user=$obj->{user};
$session=$obj->{session};
print "the: $user,$session";

#package Send
package Send;
sub new
{
	my ($user)=@_;
	my $self={};
	$self->{user}="$user";
	$self->{session}="4556";
	bless($self);
	return $self;
}
#output is below
the: Send,4556