Help for this page
print colored($name,'red');
sub visual_name { my( $name )= @_; colored( $name, 'red' ); };