syntax_std.cgi

来自「嵌入式ＷＥＢ」· CGI 代码 · 共 12 行

#!/usr/bin/perl -wT

use strict;
use CGI qw( :standard );

my $name = param( "name" );

print header( "text/html" ),
      start_html( "Welcome" ),
      p( "Hi $name!" ),
      end_html;