use strict;
use warnings;
use autodie;

my $POS = 10;

open my $fh, '<', 'dna.txt';
my $L = length( <$fh> ) - 1;
seek $fh, $POS - 1, 0;

my ( $s, $i ) = ( '', 0 );
seek $fh, $L, 1
    while read $fh, $s, 1, $i++;

print "$s\n";