#!/usr/bin/perl -w open(PID, "< pid") || die "Can't open PID file: $!"; $pid = ; close PID; if(defined $pid){ if($pid==0){ # print "Location: http://test/test.html \n\n"; print "Content-type: text/html\n\n"; print "hello"; exec '/usr/sites/test/vcgi/server.cgi'; } }