local($/); 
$data = <STDIN>; 
my $A = IO::String->new ($data);
my $B = IO::String->new ($data);

##</code><code>##

use CGI ($B);