my $string
{
    local $/ = "\n";
    open my $fle, '<', $filepath or die $!;
    seek $fle, $offset, 0 or die $!;
    $string = <$fle>;
    close $fle or die $!;
}