#!/usr/local/bin/perl
# Jaime Prilusky, 2002
use Date::Calc qw (Today_and_Now Date_to_Text Date_to_Text_Long);

  my ($year,$month,$day, $hour,$min,$sec) = Today_and_Now();

  print "$year,$month,$day, $hour,$min,$sec\n";

  $string = Date_to_Text($year,$month,$day);

  print $string,"\n";

  $string = Date_to_Text_Long($year,$month,$day);

  print $string,"\n";