C:\>perl -w tmp.pl
Name "main::IN" used only once: possible typo at tmp.pl line 8.
Use of uninitialized value $id in seek at tmp.pl line 10.
seek() on unopened filehandle In at tmp.pl line 10.
readline() on unopened filehandle In at tmp.pl line 11.
Use of uninitialized value $name in concatenation (.) or string at tmp.pl line 3.

##</code><code>##

my $id= shift;
my ($name) = seekName($id);
print "$name\n";

sub seekName
{
    my ($id) = $_[0];
    open (IN, "<:utf8", $0) or die "Can't open: $!";
    
    seek IN, $id, 0;
    my $line = <IN>;
    return $line;
}