#!/usr/bin/perl#use strict;our $debug = 0;our $numsigs = 0;our $random = 0;our @sigs;our $datadir = "/home/jrd/.sigs";our $file = "";our $line = "";# read number of entriesopendir (DIR, $datadir) || die ("unable to opendir ($datadir)");while ($file = readdir(DIR)) { print "file: $file\n" if ($debug); next if ($file eq "."); next if ($file eq ".."); push @sigs, $file; print "file pushed: $file\n" if ($debug); $numsigs++;}print "numsigs: $numsigs\n" if ($debug);# get a random signature out of those available$random = int (rand ($numsigs));print "random: $random\n" if ($debug);$sig_to_use = $sigs[$random];print "sig_to_use: $sig_to_use\n" if ($debug);print ("going to use: ($random / " . ($num_sigs-1) . "), \"$sig_to_use\"\n") if ($debug);$sig_file = $datadir . "/" . $sig_to_use;open (FILE, $sig_file) || die ("unable to open sig file ($sig_file)\nHow's that for a neat .sig?");while ($line = <FILE>) { print $line;}close (FILE);