skx@gold:~$ perl t.t > /dev/null
Subroutine main::ctime redefined at (eval 4) line 2
Prototype mismatch: sub main::ctime ($;$) vs none at (eval 4) line 2
Subroutine main::strftime redefined at (eval 4) line 2
Prototype mismatch: sub main::strftime ($\@;$) vs none at (eval 4) line 2
Subroutine main::asctime redefined at (eval 4) line 2
Prototype mismatch: sub main::asctime (\@;$) vs none at (eval 4) line 2