$ perl
use strict;
use warnings;
no warnings "all";
use Test::More tests => 2;

BEGIN { use_ok('POSIX',        'strftime'); }
BEGIN { use_ok('Date::Format', 'strftime'); }
__END__
1..2
ok 1 - use POSIX;
Prototype mismatch: sub main::strftime: none vs ($\@;$) at /usr/lib/perl5/5.8.5/Exporter.pm line 65.
 at (eval 4) line 2
ok 2 - use Date::Format;
$

##</code><code>##

$ diff Format.pm.org Format.pm
15c15
< @EXPORT  = qw(time2str strftime ctime asctime);
---
> @EXPORT_OK  = qw(time2str strftime ctime asctime);