Help for this page

Select Code to Download

Select or download this

open (DATA, "<:encoding(utf16be)", "$filename") or die "Couldn't open 
+DATA: $!";
while (<DATA>) {
    print;
}
close DATA;

Select or download this

#!/usr/local/bin/perl
use strict;
use warnings;
...
Cras nonummy lobortis urna.
Aenean facilisis vulputate felis.
Mauris pharetra malesuada quam.