#!/usr/bin/perl
@files = glob("*.msg");
foreach $file(@files) {
$cmd = "perl script.pl < $file";
system($cmd);
}