Select Code to Download

print $new $l;

perl -le '$x="foo"; $y="bar"; print $x $y'

perl -le '$x="foo"; $y="bar"; print $x, $y'

perl -wle '$x="foo"; $y="bar"; print $x $y'
print() on unopened filehandle foo at -e line 1.

use strict;
use warnings;
...
s_abc_in(1450) <= s_abc_out(324);
s_abc_in(1451 <= s_abc_out(1450);
.................................