Name	Size	Mode	Actions
cpanrt.t	1950	0644	editdlrm
date.t	4818	0644	editdlrm
format.t	2412	0644	editdlrm
getdate.t	8113	0644	editdlrm
lang.t	348	0644	editdlrm

#!/usr/local/bin/perl -w use Date::Language; my $time = time; my $v; my @lang = qw(English German Italian Bulgarian); print "1..", scalar(@lang),"\n"; my $loop = 1; my $lang; foreach $lang (@lang) { my $l = Date::Language->new($lang); $v = $l->str2time($l->ctime($time)); print $v == $time ? "ok $loop\n" : "FAIL $loop\n"; $loop++; }