Send SMS sample script using Perl