Uploading a bunch of simple stuff done for a programming challenge.
#!/usr/bin/perl
use warnings; use strict;
use LWP::Simple;
my $fname = 'http://deron.meranda.us/data/popular-both-first.txt';
my $lname = 'http://deron.meranda.us/data/popular-last.txt';
my @lastn = split('\n', get($lname));
my @firstn = split('\n', get($fname));
my $indexF = int(rand(scalar @firstn));
my $indexL = int(rand(scalar @lastn));
print ucfirst(lc($lastn[$indexL])) . ", " . ucfirst(lc($firstn[$indexF])) . "\n";
OZNOID!!!! PLEASE