Select Code to Download

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

use CGI ($B);