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

alert("Don't do that!");