Select Code to Download

C:\>perl -w tmp.pl
Name "main::IN" used only once: possible typo at tmp.pl line 8.
...
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.

my $id= shift;
my ($name) = seekName($id);
...
    my $line = <IN>;
    return $line;
}