Select Code to Download

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

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

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

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