bold print to a FH

All,

I want to have bold print of a Title but it is not working. Here is my
code:

require 5.6.1;

use strict;
use warnings;
use diagnostics;
use MIME::Lite;
use Term::ANSIColor;
use Logfile::Rotate;
$^T=time;
our $now = time();
our $tapes = qq(/var/tmp/volrpt.log);
our $mt = (stat("$tapes"))[9];
our $tsl = qq(/var/tmp/tapefile_status.log);
our $media = qq(/usr/local/log/FUJI_HRTLAB_SHLTH_tapes.xls);
$ENV{"PATH"} = qq(/opt/SUNWsamfs/sbin:/usr/bin:/usr/sbin:/usr/local/log);



###--### Begin Routines ###--###


sub mediausage
{
open (TPC,"/usr/local/bin/ohiohealth/tpcount.pl | " ) or
die "unable to fork tpcount.pl $!";
open (MU, ">>$media") or die "unable to open file: $media
$!";
print color 'bold'; print MU "Media Usage Key for all ASM
clients:", " ", dateme();

while (<TPC>) {

print MU $_, "\n";
}
}

__END_CODE__

When I view the file my header "Media Usage Key for all ASM clients" it is
not in bold, but my screen becomes bold print.

any advise?
thanks

derek



.

Relevant Pages