my $offset = 'blah';

if ($offset =~ /^[0-9]+$/){
    seek $fh, $offset, 0;
}
else {
   die "offset needs to be numeric";
}