#!/usr/bin/perl -w
  use strict;
  use Carp;
  use Date::Calc qw/check_date Localtime/;

  my $date = shift @ARGV || '';
  my @date = split '-',$date;
  unless (eval{check_date(@date)}){
      carp 'Invalid date supplied on command line - using current date';
      @date = (Localtime)[0..2];
  }
  $date = join '-', @date;
  print "$date\n";
  __END__