sub error{
  my $message=shift;
  system("net send localhost $text");
  die($message);
}