#!/usr/bin/perl
# randomsig.pl by mito@sprynet.com
# modified by dirk@informatik.uni-frankfurt.de
# variable definitions

# directory where you store your random sigs relative to home
$RANDOM_SIG_DIR = "YOUR_RANDOM_SIG_DIR";

# end variable definitions

$HOME = "$ENV{HOME}";
$DIR = "$HOME/$RANDOM_SIG_DIR";

open(SIGFIXED, "$HOME/.sigfixed");
while (<SIGFIXED>) {
    print;
}

opendir(DIR, $DIR) || die "Can't open $DIR: $!\n";
@sig = grep(-T "$DIR/$_" && !/^(\.|#)/ && !/~$/ , readdir(DIR));
srand(time ^ $$);
open(SIG, "$DIR/$sig[int(rand(scalar(@sig)))]");
while (<SIG>) {
    print;
}