#!/usr/local/bin/perl

use strict;
my $rotate = "/home/tskirvin/.sig.rotate";

my @sigs;

open(RANDOM, $rotate) or die "Couldn't open $rotate: $!\n";
while(<RANDOM>) { chomp; push @sigs, $_ }
close RANDOM;

while (<DATA>) { print }
print $sigs[int(rand scalar @sigs)], "\n";

__DATA__
			   - Tim Skirvin (tskirvin@killfile.org)
-- 
http://www.killfile.org/~tskirvin/  Skirv's Homepage <FISH>< <*>