package persque;
sub new {
    bless { FIFO => shift()}; # must be given an existent fifo file or
+ creatable filename
}

sub install { # create persistent queue
    my $self = shift;
    mkfifo $self -> { FIFO }
      or die "$!: " . $self -> { FIFO } . "\n";
}
    
sub enqueue {
    my $self = shift;
    my @items = @_;
    chomp @items;
    open $fh, '>' . $self -> { FIFO }
      or die "$!: " . $self -> { FIFO } . "\n";
    print $fh (map { $_ . "\n" } @_);
    close $fh;
}

sub dequeue {
    my $self = shift;
    open $fh, $self -> { FIFO }
      or die "$!: " . $self -> { FIFO } . "\n";
    my $r = <$fh>;
    close $fh;
    $r;
}
1;
[download]