#!/usr/bin/perl -n
use IO::Handle;

if (m/^\@([-+0-9a-z]+)\@/) {
    print "\n\n",('='x20)," $1 ",('='x20),"\n\n" or die $!;
    STDOUT->flush or die $!;
    $!=0; system('cat', "/usr/share/doc/$1/copyright")
	and die "cat for $1: $? $!";
} else {
    print or die $!;
}
