#!/usr/bin/perl -w

use warnings; use strict;

my $osdapth = "/usr/bin/osd_cat";
my $font = "-*-*-*-*-*-*-*-160-*-*-*-*-*-*";
my $sigfile = shift or "$ENV{'HOME'}/.signatures";

$/="-- \n";
open FH, "<$sigfile" or die "Can't open $sigfile $!\n";
my @sigs = <FH>; $_ = $sigs[ rand @sigs];
s/-- \n//g; s/'/ /g;
system("echo \'$_\' | $osdapth -d 5 -p middle -A center -f $font");