gistfile1.PL

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
my $host = "fujiwara-mac";
my $port = 9292;
my $file = shift;
my $in;
my $content = (open $in, "<", $file)
    ? do { local $/; <$in> }
    : "";
close $in;

my $ua  = LWP::UserAgent->new( timeout => 0 );
my $req = $ua->request( PUT "http://$host:$port/edit", Content => $content );
if ($req->code == 200) {
    rename "$file", "${file}~";
    open my $out, ">", $file or die $!;
    print $out $req->content;
    exit;
}
else {
    die $req->status_line;
}