use strict;
use warnings;
use SomeModule;

my $data = SomeModule::get_data();
print qq(\e[0;31m$data\e[0m\n);