open(INPUTFILE, "progs.txt");
while(<INPUTFILE>){
    $val=`print`;
}