daily pastebin goal
47%
SHARE
TWEET

Untitled

a guest Aug 13th, 2016 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. use strict;  
  2. use warnings;  
  3. use Net::SMS::WAY2SMS;
  4.  
  5. my $sms = Net::SMS::WAY2SMS->new(  
  6. 'user' => 'user_name' ,  
  7. 'password' => 'secret_password',  
  8. 'mob' => ['1234567890', '0987654321']
  9. );
  10.  
  11. # multi line sms
  12. $sms->send(q[testing
  13. sending
  14. sms]);
  15. #end1
  16.    
  17. #!C:/strawberry/perl/bin/perl.exe
  18. use strict;  
  19. use warnings;  
  20. use Net::SMS::160By2;
  21. my $username = "9823763544";  
  22. my $password = "sssssss";  
  23. my $msg = "Hi";  
  24. my $to = "9922334455";  
  25. my $obj = Net::SMS::160By2->new($username, $password);  
  26. $obj->send_sms($msg, $to);  
  27. #end2
  28.    
  29. my $sendsms_uri = URI->new($SENDSMS_URL);
  30. $mech->get($sendsms_uri->as_string);`
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top