Prints Lorem ipsum with fore- and background colors

256.pl

#!/usr/bin/perl

use Term::ExtendedColor qw(:all);
use strict;
use warnings;
use feature qw(say);

say "Throw me two numbers or two color names separated by space(s)";
while (<>) {
    # print $_;
    chomp($_);
    my @row = split /\s+/, $_;
    my ($fore, $back) = @row[0, 1];
    say fg($fore, bg($back, 'Lorem ipsum'));
    clear();
 }