#!/usr/bin/perl

my $dir = '.'; 
my $pattern = '.jpg$';  #Filenames ending in .jpg
opendir DIR, $dir or die "Cannot readdir $dir:$!\n";
my @files = grep /$pattern/,(readdir DIR);
closedir DIR;
print "@files\n";

foreach my $file (@files){
    system ("somecommand $file");
 }
[download]

Thanks zentara..This is almost working fine

Only problem is i am getting error like can not open file..

My code is as below

my $dir = "INPUT";
my $pattern = '.txt';
opendir DIR, $dir or die "cant open dir";
my @files = grep /\.txt/,(readdir DIR);
closedir DIR;
#print "@files\n";
foreach my $file (@files){
    print "$file\n";
    open (INF, $file)||warn "Can not open $file";
    $data=join ("", <INF>);
    print "$data\n";
 }
[download]

when i run this file i get error like "Can not open file" Could you please help me with this?

Your problem is that you are only using the filename to open the file not the fullpath.

my $dir = "INPUT";
my $pattern = '.txt';
opendir DIR, $dir or die "cant open dir";
my @files = grep /\.txt/,(readdir DIR);
closedir DIR;
#print "@files\n";
foreach my $file (@files){
    my $filepath = "$dir/$file";
    print "$filepath\n";
    open (INF, $filepath)||warn "Can not open $filepath";
    $data=join ("", <INF>);
    print "$data\n";
 }
[download]

See open.

I'm not sure I understand this question. Do you want your script to run against many files, rather than one file at a time? If so why not alter your script to read in a list of files (perhaps from a file or command line) or to process all files stored within a defined sub directory?

Extreamly Sorry for confusion..But you got it right.

I want to run my script agains many files. And i want it to do it through script, but dont know how to do it.

I have all input files in Input DIR and output files in Output Dir