#!/usr/bin/perl
use LWP::Simple;
use Encode 'from_to';

$_ = get("http://www.example.com");
from_to( $_, 'utf8', 'cp1252' );

open(O,">","test.txt") or die "open failed on test.txt: $!";
print O;