Try using binmode on the output file:

require LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('url_to_some_picture.jpg');

## Either use :raw on the open
open(outfile, '>:raw', 'file_path_name'); ### You should check for suc
+cess!

## Or use bimode
binmode outfile;

if ($response->is_success) {
    print outfile $response->content;
}
else {
    die $response->status_line;
}
[download]

Thank you both very much, works beautifully now. I'll take some time and research what binmode does.

I'll take some time and research what binmode does

On operating systems with Unix-like filesystem semantic, it does nothing.

On some operating systems, however, you can't (successfully) write bytes with the eighth bit set certain byte sequences unless you use binmode. The most common operating system that exhibits this behavior is Microsoft Windows.

update: Oops, got confused with a different issue.

---

Sanity? Oh, yeah, I've got all kinds of sanity. In fact, I've developed whole new kinds of sanity. Why, I've got so much sanity it's driving me crazy.

binmode outfile;
[download]

While "the right answer" has already been given, you also might consider switching to LWP::Simple, for it makes your code a whole lot shorter ;)

use strict;
use LWP::Simple qw/getstore/;

getstore("url_to_some_picture.jpg", "file_path_name");
[download]

#!/usr/bin/perl
use warnings;

&get_web_file;

sub get_web_file {
use Fatal qw(open close);
use LWP::Simple;
use HTTP::Status;

my $URL = 'http://zentara.net/2uni2.jpg';
my $localfile = '2uni2.jpg';

my $rc = mirror( $URL, $localfile );
warn status_message( $rc ) if is_error( $rc );
}
[download]