CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Passing parameter to perl CGI code

  
    A Simple Form
  
  
    

Please Enter Your Name


    
      First name: 
      

      Last name: 
      

      
    
  

#!/usr/bin/perl -w
use strict;
use CGI ':standard';
my @params    = param();
my $firstname = param('firstname') || 'you have no first name!';
my $lastname  = param('lastname')  || 'you have no last name!';
print 
    header(),
    start_html(
        -title   => 'Welcome!',
  -text    => '#520063'
    ),
    h1("Hello, $firstname $lastname!"),
    end_html();