Something

if(my $fork = fork()){
	print color 'bold blue';
	print("Listening on $lPort and forking\n");
	print color 'reset';
	exit;
} else {
	print color 'bold red';
	print("Error: Cant fork?\n");
	print color 'reset';
	exit;
}