例外処理とかユルユルですが。 #!/usr/bin/env perl # Time-stamp: <2007-10-09 20:01:58 JST, hirose31> use strict; use warnings; use utf8; use Carp; use String::ShellQuote; use Test::Base; ### ==================================================…