Select Code to Download

( while read command param; do  # whatever method
    files=`command param`       # to gather the files
...
        echo $file
    done
done) | maincode.pl

#!/usr/bin/perl
use IPC::Open2;
...
        ... # do whatever with each line in the file
    }
}