Select Code to Download

<form action="cgi2.cgi">

print "<form action=\"cgi2.cgi\">\n";

use CGI qw/:standard/;

# ...

print start_form( -action=>'cgi2.cgi' );

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );