package Foo;
sub TIEHANDLE { bless {}, $_[0]}
sub READLINE {return "foobar\n"}

package main;
#use Foo;
tie(*TEST, Foo);
chomp($data = <TEST>, $data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";