$obj->SetName($value);
$obj->set_title($newtitle);

##</code><code>##

print join ' - ', grep { -d } @list;
print join(' - ', grep { -d } @list);

##</code><code>##

print(join(' - ', grep({-d}, @list)));

##</code><code>##

    open(my $fh, '>', $filename);
    print $fh $message;
    myownfunction($param1, $param2);
    close $fh;