add port_map sub command.

Perl version https://github.com/fujiwara/Urume/commit/573b4c1c78ece847e0a1a942e4cd523f50ee301d