This is a problem with Visio and not with Perl. You will then have to read the Visio documentation and find out what the appropriate method is.