#!/usr/bin/perl -w
use strict;
use File::Slurp;

my $basedir = '/home/rjs/perl/perlnut';

opendir(DIR, $basedir) or die $!;
my @files = readdir(DIR); # name arrays plural, hashes singular
closedir DIR;

my $outfilename = 'final.htm';
my $outfilesrc = undef; 
                                                                                                 
foreach (sort @files){ 
  $outfilesrc.= File::Slurp::slurp("$basedir/$_");
}

open(OUT, "> $basedir/$outfilename") or die ("Can't open for writing: $basedir/$outfilename : $!");
print OUT $outfilesrc;
close OUT;

exit;

##</code><code>##

# cat /home/rjs/perl/perlnut/*htm > /home/rjs/perl/perlnut/final.htm