Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my objskype - Win32::OLE->new('SKYPEAPI.Access'. 'objSkype_');
    
    $objSkype->SendMessage( $targethandle, $message );
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    foreach my $value (in $ex) {
      print "$value->{ID} : $value->{STATUS} : $value->{PSTN_NUMBER}\n";
    }
    
  3. or download this
    skt.pl
    Count
    Item
    1165 : 11 : +647723xxxx
    1216 : 7 : +1416778xxxx