#!/usr/bin/perl
$sigfile = '/home/andy/files/txt/sigs';

open(A,$sigfile);
@sigs = <A>;
close(A);

($sn,$st) = (int(rand(scalar @sigs)), scalar @sigs);
$sig=$sigs[$sn];
$sig=~s/\\n/\n/og;
$sn++; # because perl arrays start at 0.
system("/opt/csw/bin/vim-minimal @ARGV");
open (B,'>/home/andy/.signature');
print B "andyw - Now hireable. Cheap rates, etc. Randomly included sig (#$sn/$st):\n$sig";