Wrote Perl Script

Perlで書きました。