#!/usr/bin/perl -w
# print random signatures

$home= $ENV{'HOME'} || $ENV{'LOGDIR'} or die "Can't determine the home directory\n"; 
$sig_file = "$home/.signatures";

srand;

die "NO FILE: $sig_file\n" unless -f $sig_file;
open (SIGS,"<$sig_file") || die "Can't open $sig_file\n";

$/ = "\n\n";
@sig = <SIGS>;

print $sig[rand(++$#sig)];

exit;