3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 19:22:40 +01:00
pbot/modules/fnord.pl

13 lines
155 B
Perl
Raw Normal View History

2010-05-25 04:58:29 +02:00
#!/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";