my $sap_line = <SAPR>;  # scalar context
        print $sap_line;