Select Code to Download

#! perl -slw
use strict;
...
c:\test>junk
Name "main::READ" used only once: possible typo at c:\test\junk.pl lin
+e 7.
83      Got''   Terminating on signal SIGINT(2)

#! perl -slw
use strict;
...
c:\test>junk
Name "main::READ" used only once: possible typo at c:\test\junk.pl lin
+e 7.
553     Got''   Terminating on signal SIGINT(2)

#! perl -slw
use strict;
...
c:\test>junk
1000000 Got'1'