#!/afs/athena/contrib/perl/perl
srand;
$z = $ENV{'HOME'} . "/.zsigs";
open (Z, $z) || die "Eror opening $z: $!\n";
@lines = <Z>;
close Z;
$line = $lines[int(rand(scalar(@lines)))];
print STDERR $line;
$line =~ s/"/"\\""/g;
system 'zwrite -n -s "' . $line . '"' . " @ARGV";