#!/usr/bin/perl
use strict;

my @queried = `find . -printf \"\%f %s\\n\"`;
my $ttc = `find \"@ARGV[0]\" \-printf \"\%f %s\\n\"`;
foreach my $item (sort @queried) {
    chomp $item;
    if ( index(lc $ttc, lc $item) == -1 ) {
	print $item . "\n";
    }
}
