##

print "\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" );