tie *F1, 'TieTest';
print "Read: ",scalar(<F1>);