use Term::ANSIColor;

print color 'bold';
print "This is bold";

print color 'underline';
print "This is bold";

print color 'reset';
print "This is bold";