Select Code to Download

open my $FILE, "<:encoding(UCS-2)", 'TEXTCZ1.txt' or die "Cannot open 
+the TEXTCZ1.txt! \n";
my $content = do { local $/; <$FILE> };

my $text = get("http://ufal.mff.cuni.cz/~hajic/courses/npfl067/TEXTCZ1
+.txt");
open my $FILE, '>', 'file.txt' or die "$!\n";
...
print $NEWFILE $_ while <$FILE>;
open $FILE, "<:encoding(utf-8)", 'fileutf8.txt' or die "$!\n"; 
$content = do { local $/; <$FILE> };