How About?

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