#!/usr/bin/perl

use 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);