8 my $sigfile = new IO::File "> /home/don/.signature";
9 my $templatefile = new IO::File "/home/don/signature_stuff/sigtemplate.txt";
10 my $quotesfile = new IO::File "/home/don/signature_stuff/quote.txt";
14 while (<$templatefile>) {
22 while (<$quotesfile>) {
28 my @quotes = split /\n*\%\n*/s, $quotes;
31 my $quote = $quotes[rand($#quotes+1)];
33 $template =~ s/\[\%\s*quote\s*\%\]/$quote/;
35 print {$sigfile} $template;