in reply to command is timing-out when execute the script

What makes you think this is a problem with your perl?

Are you sure that "ip access-list 0.100" is a valid command for the device you're connecting to?

In Section Seekers of Perl Wisdom