Shell Programming and Scripting

#!/bin/usr/perl
use Term::ANSIColor;
print "This text is normal.\n";
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
print BOLD BLUE "This text is in bold blue.\n";
print "This text is normal.\n";

#!/bin/usr/perl
use Term::ANSIColor;
open (OUT,">cl.txt"); 
print OUT "This text is normal.\n";
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
print OUT BOLD BLUE "This text is in bold blue.\n";
print OUT "This text is normal.\n"; 
close(OUT);

This text is normal.
^[[1m^[[34mThis text is in bold blue.
^[[0m^[[0mThis text is normal.