#!/usr/bin/perl

use strict;
use warnings;

# change bgcolor and text
system("echo -e"\e[1;32;40m black");

sleep 5;

# revert to original color
system("echo -e "\e[0m");