#!/usr/bin/perl
use strict; use warnings;
my $cmd = q( export PS1="\e[0;31m[\u@\h \W]$ \e[m " );
print $cmd , "\n";