#!perl

BEGIN {@INC=(@INC,"/cygdrive/c/bin")};
use datlib ;

$d=&today();
$t=&tnow();
print "$d-$t";