Select Code to Download

#!perl -slw
use strict;
...

print for @lines;

__DATA__
c
...
niverse
cn=Perl Monks,ou=Bedchambers,ou=Monastery,c=Univers
e