!/usr/bin/perl
use strict;
use warnings;

my $ret_val = fork();
if (! defined $ret_val){
	die "Can't fork(): $!";
} elsif ($ret_val == 0){
	# do your daemon tasks here
	sleep 5;
	print "Exiting\n";
} else {
	exit 0;
}