package Foo;

sub TIEHANDLE
{
    $obj = {};
    bless $obj, $_[0];
}

sub READLINE
{
    return "foobar\n";
}

package Main;

use Foo;

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