3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-17 17:39:43 +01:00
pbot/modules/fnord.pl
2010-05-25 02:58:29 +00:00

13 lines
155 B
Perl
Executable File

#!/usr/bin/perl
use warnings;
use strict;
open FH, "<fnord.txt" or die "Fnord?";
my @lines = <FH>;
close FH;
print "$lines[int rand($#lines + 1)]\n";