Select Code to Download

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

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