#!C:/strawberry/perl/bin/perl.exe
use strict;
use warnings;
use SMS::Send;

  # Create an object. There are three required values:
  my $sender = SMS::Send->new('Twilio',
    _accountsid => 'Acount SID here',
    _authtoken  => 'Twilio Token here',
    _from       => '+1 Twilio Phone number here'
    );
  
  # Send a message to me
  my $sent;
  
  eval{
    $sent = $sender->send_sms(
      text => 'text to send',
      to   => '+12125551212' #sample phone number
      );
  };
  
  my $error = $@;
  # Did it send?
  if ( $@ ) {
    print "Unable to send Message ".$@;
  }