#!/usr/bin/perl -w

use strict;

use vars qw($SOURCEFILE);
$SOURCEFILE="/tmp/overwrite";

# First read in the source file
use vars qw($sourcefile);
open(F,"< $SOURCEFILE")
  or die "Couldn't read '$SOURCEFILE': $!\n";
undef $/;
$sourcefile = <F>;
close(F)
  or die "Couldn't close '$SOURCEFILE': $!\n";

# Now walk the directory and replace the files.
opendir(D,".")
  or die "opendir error: $!\n";
while (my $f = readdir(D))
{
  next if ($f =~ /^\./);
  next unless (-f $f);
  open(F,"> $f")
    or die "Error overwriting '$f': $!\n";
  print F $sourcefile;
  close(F)
    or die "Error closing '$f': $!\n";
}
closedir(D)
  or die "closedir error: $!\n";
exit(0);