Simple 3M SIP2 Standard Interchange Protocol implementation in perl