sub foo {
	my ($self,$date,$message,$opt_args) = @_;
	.....
	return $sucess;
}

##</code><code>##

sub new {
	my ($class,%args) = @_;
	...
	my $foobar = $args{foo} . $args{bar}; # Whatever
	...
}