my $a = telldir(D);
$a = telldir(*D);
my $dh;
$a = telldir($dh);
$a = telldir(*$dh)
