を書いた。会社のrepos内にアップしてしまったのでここに貼り付けちゃう。 #!/usr/bin/env perl use strict; use warnings; use File::Spec; use File::Find::Rule; use FindBin; use Getopt::Long; use Pod::Usage; use HTTP::Proxy; use YAML; # load config my $config = do { my $config_file = File::Spec->catfile( $FindBin::Bin, 'config.yml' ); my $port = 0; my $host = ''; my $help = 0; GetOptions( 'port|p=s' => \$port, 'host|h=s' => \$host, 'co