#!/usr/bin/perl

$findlist = '! \( \( -user inaki -and \( -name "*std_out*" -o -name "l=*_data" -o -name "l=*_mass" -o -name "l=*_r0" -o -name "gg" -o -name "hh" \) \) -o -name "*.sdf" -o -name "*.sdf.gz" -o -name "*.hdf" -o -name "*.dat" -o -name "*.dat.gz" -o -name "*.segdat" -o -name "*.rgb" -o -name "*.o" -o -name core -o -type d \) -mount -mtime -1 | grep -v .netscape/cache | grep -v home/daub | grep -v /home/bh\* | grep -v /home/lnx\*';

$blah=system("find /home/psandhu $findlist");

print $blah;
