#!/usr/bin/env perl use strict; use warnings; use Tie::File; die "Usage: $0 newfile usedfile" unless (-f $ARGV[0] && -f $ARGV[1]); tie my @new, "Tie::File", $ARGV[0], recsep => "\n\n"; if (@new) { my $rec= shift @new; print "$rec\n\n"; tie my @old, "Tie::File", $ARGV[1], recsep => "\n\n"; push @old, $rec; untie @old; } untie @new;