<?php 
?> 
<form method="post" action="script.pl"> 
<textarea name="mytextarea">textarea content</textarea> 
<input type="submit" name="submit" value="submit" /> 
</form>

#!/usr/bin/perl 
use strict; 
use warnings; 
use CGI ':standard'; 
 
my $mytextarea = param('mytextarea'); 
 
print "Content-type: text/html\n\n"; 
print "$mytextarea";

#!H:/xampp/perl/bin/perl  
use strict; 
use warnings;  
use CGI ':standard';  
  
my $mytextarea = param('mytextarea');  
  
print "Content-type: text/html\n\n";  
print "$mytextarea";

#!H:/xampp/perl/bin/perl 
use strict; 
 
my $string = "Hello, Perl!"; 
 
print "content-type: text/html \n\n"; 
print "$string";

#!H:/xampp/perl/bin/perl 
   
sub xcgi_InitForm   
{   
  my($h) = '[a-fA-F0-9]';   
  my($buff, @params, $param);   
  my($param_name, $param_value);   
  local(*xcgi_form) = @_ if @_;   
   
  read(STDIN, $buff, $ENV{'CONTENT_LENGTH'});   
   
  @params = split(/&/, $buff);   
   
  foreach $param (@params)   
  {   
    ($param_name, $param_value) = split(/=/, $param);   
   
    $param_value =~ tr/+/ /;   
    $param_value =~ s/%($h$h)/pack("C",hex($1))/eg;   
   
    $xcgi_form{$param_name} = $param_value;   
  }   
}   
   
{   
  my(@form);   
   
  xcgi_InitForm(*form);   
   
  $mytextarea = $form{'mytextarea'};   
 
  print "content-type: text/html\n\n"; 
  print "$mytextarea"; 
}