Help for this page

Select Code to Download


  1. or download this
    <html>
<head>
...
print $query->header;

print "<p>Massage  <b>$secretword</b> came from <b>$remotehost</b> IP 
+</p>";
  2. or download this
    
$|=1;
...
  chomp(my $say = <>);
  ($say eq 'q') ? (exit(0)) : (print "\nI caught $say \n");
}