package Lib::Daemon;

	use base qw(Exporter);
	our @EXPORT = qw();

	use POSIX qw(setsid);

	use strict;

	sub daemonize {
	    defined(my $pid = fork) or die "Can't fork: $!";
	    exit if $pid;
	    print $pid . "PID WAS \n\n";
	    setsid() or die "Can't start a new session: $!";
	}

1;

__END__