#! /usr/bin/perl

use     File::Copy;

my      $from = "/var/local/backup/from/";
my      $to = "/var/local/backup/to/";

opendir (H1, $from) || die ("error: cannot read input directory");
opendir (H2, $to) || die ("error: cannot read output directory");

my      @files1 = readdir (H1);
my      %files2 = map { $_ => 1 } readdir (H2);

closedir (H1);
closedir (H2);

foreach $file (@files1)
{
        if ($file != '.' && $file != '..')
        {
                my      $i = 0;

                while ($files2{"$file.$i"})
                {
                        $i = $i + 1;
                }

                if ($i == 0 || -s "$from/$file" != -s ("$to/$file." . ($i - 1)))
                {
                        copy ("$from/$file", "$to/$file.$i");
                        print "backup $file as $file.$i\n";
                }
        }
}