$ perl -F'\t' -lane '
>     $a{$F[0]} = $F[1], next if $#ARGV == 0;
>     print "$_\t$a{$F[0]}";
> ' file2.txt file1.txt
gene1   1234    78975   abc
gene13  9876    ldlgfjk xyz
$