sub alert {
   my $mesg = shift;
   print "alert(\"$mesg\")\n";
}