書いたコード

#!/opt/local/bin/perl -w
use strict;
use LWP::Simple;
use Encode;
use encoding 'eucjp';
binmode(STDERR, ':raw :encoding(eucjp)');

my $id = shift @ARGV || '074'; # 引数の取得

# 外務省海外安全ホームページ
my $url = "http://www.anzen.mofa.go.jp/info/info4.asp?id=$id";

my $content = get($url);

die "$url を読み込むことができませんでした。" unless defined $content;

$content = decode('shiftjis', $content); # コンテンツのコード変換
$content =~ s/<!--(.*?)-->//gs;          # HTML 内のコメント削除
$content =~ / SELECTED>▼([^<]+)</;      # 国名のの取得

print "$1\n";

if ($content =~ /現在、危険情報は出ておりませんが、/) {
  print "危険情報は出ていません。\n";
} else {
  print "危険情報が出ています!\n";
}
print "詳細は http://www.anzen.mofa.go.jp/ を見てください。\n"