#!/usr/bin/perl -w
use strict;
use CGI;

my $output;
my $data = '/path/to/cookies.txt';

my $query = CGI::new();
open COOKIES, "<$data" or die "Cannot open cookie file: $!";
$/ = "\n%%\n";
rand($.) < 1 && ($output = $_) while <COOKIES>;

# for plain text:
print $query->header('text/plain');
print $output;

# or for html
print $query->header('text/html');
print $query->start_html('Cookies');
print $output;
print $query->end_html;