open S, "foo" or die "Can't open foo: $!";
my $buffer;
while (read S, $buffer, 1) {
    print $buffer, "\n";
}
close S or die "Can't close foo: $!";