Select Code to Download

C:\test>perl -c
use POSIX qw[ceil floor]; print ceil($a), floor($b);
...
^Z
- syntax OK
C:\test>

C:\test>perl -c
sub cool(){ print 'cool',$/; }
my $a = cool;
^Z
- syntax OK

#! perl -slw
use strict;
...
my $a = 1;
my $a = cool;
my $

C:\test>231561
'sub syntax_check_INIT { print '*** INIT GOTCHA!!! ***'; }'
...
Can't use global $; in "my" at (eval 14) line 2, near "my $
;"
syntax error at (eval 14) line 2, at EOF