#!/usr/bin/perl
# your code goes here

package MONOLOG;

use strict;

sub new {
	my ( $class, $name ) = @_;
	
	my $self = bless { name => $name }, $class;
	
	$self->process();
	
	return $self;
}

sub name {
	return $_[0]->{'name'};
}

sub process {
	my ( $self ) = @_;
	
	my $name = $self->name();
	
	printf "%s, we are glad to see you!\nSo... how do you think, what do we want to tell you now?\nYes, you right!\n",
	       $name;
	printf "Welcome onboard, %s!!!\n", $name;
	
	return $self;
}


package main;

use strict;

my $alex = MONOLOG->new('Alex');
my $mike = MONOLOG->new('Mike');