Moreover, it's better to use the same path both in open and die to avoid confusion.

Error is "no such file or directory" ... he says completely embarrassed.

A text editor such as Notepad will not open the file, which I suspect is due to the IDX nature of the file (i.e, index file).

Question: using "Windows Explorer", I see that the "file opens with Excel." Could that be the culprit?

You would probably have problems reading it if it were an Excel file, but the error message says "file not found". BTW, Windows will say "Excel file" for any file having the CSV extension, regardless of the content.

According to your code, the first file it should open is:
/Volumes/EDGAR1/Edgar/full-index/company12014.idx
Does this file exist?

Yes, I see the file via Windows Explorer.

I set up a directory and file structure to match what your code is looking for and ran the portion of it that tries to open the files. It seems to work. I'm using Cygwin so the directory structure is UNIX-like.

I think you are assuming something incorrect about where your file(s) are located. Could you maybe paste in the complete path to your files?

--Nick

Your error message should contain the file name that it's dying on, what is that file name?

--Nick

Try adding "C:" to the front of your filepaths (i.e. "C:/Volumes/EDGAR/..etc..")

--Nick

use Path::Tiny qw/ path /;

        if( not path( $direct, $yr )->exists ) {
            path( $direct, $yr )->make_path;
        }

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

Path::Tiny dies when it can't make_path or children or openread

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


        my $OUTPUT;
        if( $yr == $startyear && $qtr == $startqtr ) {
            $OUTPUT = path( $outfil )->openw; ## clobber
        } else {
            $OUTPUT = path( $outfil )->opena; ## append
        }
[download]

Also, no need for that giant if/else block, use an array

my @FormGetRes = (
    '(10-K )',
    '(10-K405 )',
    '(10KSB )',
    '(10-KSB )',
    '(10KSB40 )',
    '(10-KT )',
    '(10KT405 )',
    '(10-Q )',
    '(10QSB )',
    '(10-QSB )',
    '(10-QT )',
);

@FormGetRes = map { qr{^$_(?!/)}s } @FormGetRes;



          RELOOP:
            for my $re ( @FormGetRes ) {
                if( $form_type =~ $re ) {
                    print OUTPUT "$fullfilename\n";
                    $count++;
                    last RELOOP;
                }
            }
[download]

Another tip, this one about subroutines, they should return values not work on global variables, meaning

my $ftp = ftpsignin();;

sub ftpsignin {
    use Net::FTP;
    my $ftp = Net::FTP->new( "ftp.sec.gov", Debug => 0, Passive => 1 )
      or die "Cannot connect to some.host.name: $@";

    $ftp->login( "anonymous", '-anonymous@' )
      or next;         #die "Cannot login ", $ftp->message;
    $ftp->binary();    # set binary mode
    return $ftp; ### RETURN VALUE
} ## end sub ftpsignin
[download]

Why? coping with scoping explains

Thank you for the help!!! I am grateful. On another note, I thought I had thanked everyone for their help with this issue. However, I somehow missed thanking RLAURENT, and think I ruffled his feathers. But I wanna make it right. How do I reply to his last message?

Another tip is format/annotate your code with perltidy -olq -csc -csci=10 -cscl="sub : BEGIN END if while for " -otr -opr -ce -nibc -i=4 -pt=0 "-nsak=*"

it produces output like

#end of qtr loop
    } ## end for( $qtr = $startqtr ;...)

#end of year loop
} ## end for( $yr = $startyear ;...)


} ## end sub ftpsignin
[download]

While these comments can help, if you keep your loops/subs relatively small, you won't rely on them as much :)

I commonly use

## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr 
+-ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while " -otr
+ -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while for " 
+-otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
[download]

Another tip, make more subs, give them good names, give variables good names, ... maybe BeeWork( $indexStore, $filingsStore, $filingsFile, $startyear, $endyear, $startqtr, $endqtr  ); ??? :D

If you make subs your loops can shrink

## yearloop
{
## quarterloop
    {
        ...
        BeeIO( $infile, $outfile , \@FormGetRes );
 
#~         my $downloads = path( $filingsStore, $yr );
        my $dlyear = path( $direct, $yr);

        my @aonly = BeeAonly( $dlyear,  $outfile );
        BeeFtpGet( \@aonly , $dlyear );
    }
}
[download]

Why subs? If there is a problem in BeeAOnly, you only have to debug BeeAOnly, you don't have to debug all of BeeWork

Try putting the file name into another string, then printing that string to the STDERR log file.   Let the program tell you what it is doing.

my $debugging = 1;
my $filename = "$inddirect/company$qtr$yr.idx";
print STDERR "Opening '$filename'\n" if ($debugging);
open(INPUT, $filename) || die "can't open '$filename'";
print STDERR "'$filename' opened successfully\n" if ($debugging);
[download]

I added "C:" prior to the directory spec which solved the problem. I am grateful for your time and patience! Apologize for wasting your time!!