#!/usr/bin/perl
#trollin is srsbsns.
use strict;
my @responses = ( "lol im a troll", "crymoar plz", "u tool" );
print @responses[int(rand(scalar(@responses)))]."\n";
as you can see, this script is a much better troll than you. it has the potential to learn new material.