use constant TEE        => '| tee ';
use constant TO_PRINTER => "| lp -d lex_text";

my $file = REPORT_DIR . "cc_auth_$DATETIME";
open CCAUTH_REPORT, TEE . $file . TO_PRINTER or die $!;