##
#!/usr/bin/perl
use strict;
use warnings;
use constant LOGGERc => \do{local *FH; *FH}; # silence warnings
open LOGGERc, ">mylog" or die; # gotcha
print {LOGGERc} "info...", "\n" or die;
print {\*STDOUT} qx(cat mylog);
##
##
decent_shell% perl -MLWP::UserAgent -Mconstant=PKGc,LWP::UserAgent -e 'print +PKGc->new();'