#!/usr/bin/env perl

use strict;
use warnings;

use Path::Tiny;

my @choices = (
    path('c1.txt'),
    path('c2.txt'),
    path('c3.txt'),
    path('c4.txt'),
);

my $random_path = $choices[rand scalar @choices];
my $text = $random_path->slurp;

print "The text is: $text\n";

exit;