#! /usr/bin/env perl

use strict;
use warnings;

if( ! $ARGV[0] || ! -e $ARGV[0] ){
  exit;
}
my $obj =  $ARGV[0];

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;

$mon++;
if( $mon > 12 ){
  $mon = 1;
}
$year += 1900; 

my $date = sprintf("%s%02s%s", $year, $mon, $mday);

my $newbase = sprintf("%s.%s", $obj, $date);

my $newobj = $newbase;

my $i = 1;
while(1){
  if( -e $newobj ){
    $newobj = sprintf("%s.%d", $newbase, $i);
  }else{
    last;
  }
}

my $cmd = sprintf("cp -pr %s %s", $obj, $newobj);
system($cmd);