Select Code to Download

package Test;
use Moose;
...
    my $value = $self->appended;
    return $prepend . $value;
}

use 5.010;
...
$t->appended ('another_string');
say $t->appended;

fred
/some_string/this_is_appended_string
another_string