home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / Chip_2000-08_cd1.bin / sharewar / dzperl / Setup.exe / {app} / Samples / param.pl < prev    next >
Encoding:
Perl Script  |  2000-06-15  |  154 b   |  8 lines
  1. #!/usr/bin/perl
  2.  
  3. use CGI qw(param);
  4. my $name = param('name');
  5.  
  6. print "Content-type: text/html\n\n";
  7. print "<html><h1>Hello, $name!</h1></html>\n";
  8.