print colored($name,'red');

##</code><code>##

sub visual_name {
    my( $name )= @_;
    colored( $name, 'red' );
};