Select Code to Download

use Path::Tiny qw/ path /;
...
        }

@Old = path( $direct, $yr )->children;

        my $INPUT = path( $inddirect, "company$qtr$yr.idx" )->openr;


...

my @FormGetRes = (
    '(10-K )',
...
                    last RELOOP;
                }
            }