use Encode qw( decode );
my $url = "http://ufal.mff.cuni.cz/~hajic/courses/npfl067/TEXTCZ1.txt";
my $content = decode('iso-8859-2', get($url));

##</code><code>##

{
   open my $FH, ">:encoding(iso-8859-2)", 'file_iso-8859-2.txt'
      or die "$!\n";
   print $FH $content;
}
{
   open my $FH, ">:encoding(utf-8)", 'file_utf-8.txt'
      or die "$!\n";
   print $FH $content;
}