sub print_diff {
    my ( $decor, $dir, @filename ) = @_;
    my $prefix = '';
    $prefix .= "$decor " if $opt_plain;
    $prefix .= "$dir " if defined $dir and length $dir; # awkward :-(
    print map "$prefix$_\n", @filename;
}