#!/usr/bin/env perl
use warnings;
use strict;

my $sigfile = "$ENV{HOME}/.zsigs";
my @sigs;
open(SIGS, "<", $sigfile) or die("No .zsig file found!.");
@sigs = grep {!/^\s*$/ && !/^#/} <SIGS>;
chomp(@sigs);
close(SIGS);
print $sigs[int(rand @sigs)];