#!/usr/bin/perl # # Emergency Stop program print "Content-Type: text/html\n\n"; print< HTML REDIRECT eof system("killall tcxServer")== 0 or print "Could not kill tcxServer. Reason: $?\n";