one for the todo list: open($dupfh, "<&$fh")

    my($fh, $dupfh);
    open($fh, "< /etc/motd") || die $!;

Then one of more of these should work:

    open($dupfh, "<&$fh")    || die $!;
    open($dupfh, "<&=$fh")    || die $!;
    open($dupfh, "<$fh")    || die $!;

--tom

• one for the todo list: open($dupfh, "<&$fh") by Tom Christiansen
• Re: one for the todo list: open($dupfh, "<&$fh") by M.J.T. Guy
• Re: one for the todo list: open($dupfh, "<&$fh") by M.J.T. Guy
• Re: one for the todo list: open($dupfh, "<&$fh") by Ilya Zakharevich
• Re: one for the todo list: open($dupfh, "<&$fh") by Tom Christiansen
• Re: one for the todo list: open($dupfh, "<&$fh") by Tom Christiansen
• Re: one for the todo list: open($dupfh, "<&$fh") by Tom Christiansen