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