用 Perl 寫了一支小程式，用 WWW::Mechanize 把某個 url 抓下來再貼到 ImageVenue 上：

#!/usr/bin/perl

use File::Basename;
use Getopt::Std;
use WWW::Mechanize;
use strict;

my %opt;
getopts('dp:', \%opt);

my $debug = 0;
$debug = 1 if (defined($opt{'d'}));

my $proxy;
if (defined($opt{'p'}))
{
  $proxy = $opt{'p'};
}
elsif (defined($ENV{'http_proxy'}))
{
  $proxy = $ENV{'http_proxy'};
}

my $url = shift() or die();

chdir('/tmp');
&main();

sub main
{
  my $outfile = sprintf('%s', basename($url));
  print('* Filename: ', $outfile, "\n");

  # Get
  my $agent = WWW::Mechanize->new();
  $agent->proxy($proxy) if ($proxy ne '');
  $agent->get($url);

  my $content = $agent->content();

  open(O, '> ' . $outfile);
  print(O $content);
  close(O);

  print('* Filesize: ', length($content), "\n");

  # then upload
  $agent->get('http://www.imagevenue.com/');
  $agent->form_number(1);
  $agent->field('file1', $outfile);
  $agent->submit();

  print($agent->content()) if ($debug);

  # tell me the url
  $agent->form_name('form8');
  my $imgurl = $agent->value('select');
  chomp($imgurl);
  $imgurl =~ s/\s+//g;

  print('* Output URL: ', $imgurl, "\n");

  # delete temp file
  unlink($outfile);
}

剛剛去 PoweDNS 弄了個 Free Slave DNS Hosting，提供兩個 NS RR… (不過在同個 subnet 下，這樣就不是很好了 :P)

想要申請的人在 http://express.powerdns.com/ 這頁申請就可以了。