#!/usr/bin/perluse POSIX;my $pid_file = "/var/run/test.pid";sub pipe_sig{ return 0;};local ($SIG{PIPE}) = \&pipe_sig;if (fork()) { exit;}close(STDIN);close(STDOUT);close(STDERR);exec ('/usr/sbin/vrrpd',@ARGV);