#!/bin/sh
#! -*- perl -*-
eval 'exec $PERLLOCATION/bin/perl -x $0 ${1+"$@"} ;'
 if 0;

use File::Find;
@allFiles = ();
&File::Find::find( sub {push @allFiles, $_;}, ".");