use Sys::Prctl(prctl_name);
# Process name is now "My long process name"
my $oldname = prctl_name();
prctl_name("My long process name");