perl script to recursively copy a folder data information(kinect project)

backUpDir.pl

#!/usr/bin/perl 
use strict;
use warnings;

my $initials = "AW";

my $src = $ARGV[0];
my $trg = $ARGV[1];

$trg =~ s/\/$//g;

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

$year += 1900;
my $month;
if ($mon < 10){
    $mon += 1;
    $month = "0".$mon;
}

system("cp -r $src ${trg}_${month}${mday}_${year}_${initials} \n");