my @campaign_ids = @{ $dbh->selectcol_arrayref($events_sql)}; find . -name '*.pm' | wc -l find . -name "myfile*.*" -print 2>/dev/null for i in `ls *.pm`; do perl -Tcw -I ~/public_html/bps $i; done cvs -nq update -dA