#!/usr/bin/perl -w

use Tie::File;
use IO::File;
use Fcntl qw(O_RDONLY);
use strict;

chdir '/home/hagus';

tie my @fortunes, 'Tie::File', '.signatures.rot', mode => O_RDONLY, recsep => "\n%\n";

IO::File->new('.signature', 'w')->print($fortunes[rand @fortunes]);