#!/usr/bin/perl

$touchfile="/tmp/MagnetometerAlertTouch";
$from = " $ARGV[0]";

print "Overriding $touchfile-$from\n";

open (toucher,">$touchfile-$from");
    print toucher "OVERRIDE";
close (toucher);
