Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  print $i, "\n";
}
print "-> unexpected\n\n";

corion@outerlimits:~/Projekte$ perl -MO=Deparse tmp.pl 
BEGIN { $^W = 1; }
...
}
print "-> unexpected\n\n";
tmp.pl syntax OK

sub ten() { 10 };

use constant ten => 10;