NAME
   Sys::Prctl - Give access to prctl system call from Perl

DESCRIPTION
   This is simple module that wraps the prctl system call. Currently only
   the PR_SET_NAME and PR_GET_NAME are implemented.

   This can be use to change the process name as reported by "ps -A" and be
   killable will killall.

SYNOPSIS
     use Sys::Prctl(prctl_name);

     #
     # Use with functions
     #

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

     #
     # Use as an object
     #

     my $process = new Sys::Prctl();

     # Process name is now "Short name"
     my $oldname = $process->name();
     $process->name('Short name');

     #
     # Real world use
     #

     # instead of "perl helloworld.pl"
     $0 = "helloworld"
     prctl_name("helloworld");

     print "Hello World\n";
     sleep 100;

     # Process can now be killed with "killall helloworld"

METHODS
   new()
       Creates a new Sys::Prctl object.

   name([$string])
       Set or get the process name.

   prctl_name([$string])
       Set or get the process name.

       $string can only be 15 chars long on Linux.

       Returns undef on error.

   prctl($option, $arg2, $arg3, $arg4, $arg5)
       Direct wrapper for prctl call

NOTES
   Currently only 32bit Linux has been tested. So test reports and patches
   are wellcome.

AUTHOR
   Troels Liebe Bentsen <[email protected]>

COPYRIGHT
   Copyright(C) 2005-2007 Troels Liebe Bentsen

   This library is free software; you can redistribute it and/or modify it
   under the same terms as Perl itself.