原创 記錄下我當時post butterfly的perl代碼

#!/usr/bin/perl -w use strict; use diagnostics; use warnings; use Win32::OLE; use LWP::UserAgent; use FindBin; use HTTP