#!/usr/bin/perl
#use strict;
use warnings ;
opendir(DIR, "/home/rjs/perl/perlnut/") or die "cant open the specfied directory $!";
my @file = readdir(DIR);
#my $book = final.htm;
open(OUT, ">book") or die "Can't create book: $! \n ";
                                                                                                 
foreach (sort @file)
{
local(*IN);
open( IN, $_) or die "cant raman open $_ : $!\n ";
print OUT while <IN>;
close (IN);
                                                                                                 
}