#!/usr/bin/perl -w
###################
#  CopyLeft 1999  #
#   Barry Hughes  #
# bazza@bazza.com #
###################
open(SIGS, "</home/bazza/.sigs/sigs");
$siglines = join('',<SIGS>);
@sigs = split('\n\n',$siglines);
srand(time);
print <<"END";
-Barry Hughes
$sigs[rand(@sigs)]
                             http://bazza.com/
END
close(SIGS);