#!perl -w
my @files = @ARGV;
for my $file (@files){
print "<DOC>\n<DOCNO>$file</DOCNO>\n";
open FILE, "<$file" or die $!;
while(<FILE>){
print;
}
close FILE;
print "</DOC>\n";
}
exit;