I've inserted the ANSI code and it should display the whole output in another color correct? However it does not. What am I missing? Thanks.
#!/usr/bin/perl
use Term::ANSIColor qw(:constants);
print GREEN,
open (FILE, "railcardata.txt");
while (<FILE>) {
chomp;
($roadname, $roadnumber, $cartype, $interrr) = split(":");
write;
}
close (FILE);
format STDOUT_TOP =
======================================================================
ROAD NAME ROAD NUMBER CAR TYPE INTERCHANGE RAILROAD
======================================================================
.
format STDOUT =
@<<<<<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<<
$roadname, $roadnumber, $cartype, $interrr
.
sleep 12;