tie *IOST, 'IO::String';
print Dumper \*IOST;