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