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