flips single file switch, used for development purposes typically

flipSwitch.pl

sub flipSwitch{
  my $file = shift;
  my $fileHandle;
  my $value;

  open($fileHandle,'<',$file) || warn "cant open switch file $!";
  $value = <$fileHandle>;
  close($fileHandle);

  chomp($value);
  if($value){$value = 0;}
  else {$value = 1;}

  open($fileHandle,'>',$file) || warn "cant open switch file $!";
  print $fileHandle  "$value";
  close($fileHandle);
}