sub IO::File::is_seekable {
    my $self = shift;
    eval { $self->seek( $self->tell()) };
    not $@;
}