#!/usr/bin/perl

use strict;
use warnings;

use PerlIO::via::ANSIColor color => 'red';
binmode STDERR, ':via(ANSIColor)';

warn "This output's colored\n";