#!/usr/bin/env perl
#
# except - print all lines whose first field is not in the given file
#
# $Id$

use strict;
use warnings;

my ($dir) = $0 =~ m#(.*)/#;
my $only = "$dir/only";

if ( !-x $only || !-f $only )
{
  die "$only is missing or not executable\n";
}

exec $only, '-x', @ARGV;