open (PS_F, $prg);
while (<PS_F>) {
        print;
}