@files = <../data/texts/*>;

$file = param("select") || $files[rand(@files)];

undef @isfile{@files};
exists $isfile{$file} or die;

open(IN, "../data/texts/$file") or die $!;