#!/usr/bin/perl
use LWP::Simple;
eval get('http://colabv6.dan.co.jp/zh-cn/nihao.pl');