POSIX::setsid - Any issue with this?

Any idea what am I doing wrong here...? Why isn't
setsid working?

Thanks,
Arijit

vgamd129> ./test.pl 
21544: My pgid = 21544
$sess_id = -1

vgamd129> cat test.pl
#!/depot/qsc/VG1.0/bin/perl 
use POSIX;

setpgrp($$, $$);
$gpid = getpgrp();
print "$$: My pgid = $gpid\n";


$sess_id = POSIX::setsid();
print "\$sess_id = $sess_id\n";

vgamd129> 

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection
around 
http://mail.yahoo.com 
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Userslistserv.ActiveState.com
To unsubscribe: http:/
/listserv.ActiveState.com/mailman/mysubs