#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;
$|++;
my $toprint = 10;
print header('text/plain');
open (R, 'links_search_results') or die ("Can't open random text file: $!");
my @R = ;
close (R);
chomp @R;
my @toprint;
while (@toprint < $toprint) {
push @toprint, $R[rand @R];
}
print (join " \n", @toprint);
exit;
Search Results: [an error occurred while processing this directive]
[an error occurred while processing this directive]
Search Results: [an error occurred while processing this directive]