while (defined (my $line = <PSTEST>)){
                print "Line # ".$i."\n".$line;
                print "Platform now is '$PLATFORM'\n";
                $i++;
        };