Select Code to Download

use strict;
use warnings;
...
    my_print();          
   print " (Perl Style:\$i==$i)\n";
}

1 (C-Style:$i==1)
2 (C-Style:$i==2)
3 (Perl Style:$i==x)
3 (Perl Style:$i==y)