#!/usr/bin/perl
open(INFILE,"</dev/ttyS1");
while (<INFILE>) {
  if ($_ eq "[SHUTDOWN]\r\n") {
    exec("/sbin/shutdown -h now");
  } 
}


#load this as a daemon in the background in your startup;
#additionally, you'll have to set your port using stty to 9600 baud
#and a few other things to get the script to read the port properly
#I'll add that to the website later.