#!/usr/bin/perl -w

use strict;
use Date::Pcalc qw(Add_Delta_DHMS Delta_DHMS);


my (@date,@date2,@tmp, $ret,@datum_razcep);
my $datum= $ARGV[0];


@datum_razcep=split(/\-/,$datum);

print "Datum $datum $datum_razcep[0],$datum_razcep[1],$datum_razcep[2]!!!! \n";