use Win32;
...
sub get_ports {
   my( $selfOrClass ) = shift;
...