#!/usr/bin/perl -w # vim: set sw=8 ts=8 si et: die "Usage: search_in_curr_dir filename\n" unless($ARGV[0]); opendir(DIRHANDLE,".")||die "ERROR: can not read current directory\n"; foreach (readdir(DIRHANDLE)){ print "$_\n"; print "found $_\n" if (/$ARGV[0]/io); } closedir DIRHANDLE;