[root@devel3 root]# cat test.pl
#!/usr/bin/perl -wT
use strict;
use CGI;
my $q = new CGI;
print $q->header();
my $ct = $q->param('ct');
print $ct;
[root@devel3 root]# ./test.pl ct=foo%0A
Content-Type: text/html; charset=ISO-8859-1

foo
[root@devel3 root]#