#!/usr/bin/perl
use warnings; use strict;
use Term::ANSIColor;
my $prompt = colored ("Prompt", 'bold red on_white');
print "export PS1=$prompt\n";