# TryMe.pm
package TryMe;

use strict;
use warnings;

sub new {
    my %obj = ( name => "TryMe", purpose => "None that I know of" );
    return bless \%obj;
}

sub do_something {
    my ( $class, $with_something ) = @_;
    my $special_trick = sub { "... this is only a test " };
    my $return_value = "Here's how I do_something $with_something:\n";
    for ( 1 .. 3 ) {
        $return_value .= &$special_trick;
    }
    $return_value;
}
1;