local(@ARGV) = @_;
    ...
    local *POD;
    unless (@ARGV && $ARGV[0]) {
        $Podfile  = "-" unless $Podfile;        # stdin
        open(POD, "<$Podfile")
                || die "$0: cannot open $Podfile file for input: $!\n";
    } else {
        $Podfile = $ARGV[0];  # XXX: might be more filenames
        *POD = *ARGV;
    }
    ...
    my @poddata  = <POD>;