force - displacement

Hello,

I want to displace a CNT from polymer chains (which embeded the CNT)  and get force .Would you help me, how could i script it in Perl?

Thanks