Select Code to Download

open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_fil
+e: $!\n";
# This reads in every line from FFINFO
...
# but the handle is already at EOF,
# so it gets nothing.
while ( my $line = <FFINFO> ) {

open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_fil
+e: $!\n";

...

while ( my $line = <FFINFO> ) {
    push @subfolders, $line;

    return @parents ? [ map {
                                map { "$_/$folderid" } @{ build_path( 
+$_ ) }
                            } @parents ]
                    : [ $folderid ];

( return @parents ) ? [ X ] : [ Y ];

return ( @parents ? [ X ] : [ Y ] );

perl -MO=Deparse,-p input-file.pl

return((@parents ? [map({map({"$_/$folderid";} @{build_path($_);});} @
+parents)] : [$folderid]));