open my $PS17, '<', $FILENAME or die "$! error on open - $FILENAME"; read_and_write ($PS17);