sms gratis con vodafone

#!/usr/bin/perl
use Net::SMTP;


$pl = rand(@rand);
$prov = 'smtp-sms.vodafone.it';
$from = '<gevw'."$pl".'jkqcl@omnitel.it>';
$in = '<ukurswf.bs'."$pl".'jbdsr@omnitel.it>';
$helo = $';

@rand =("a","b","v","b","n","m","l","k","j","h","g","f","d","s","s","a","p","o","i","u","y","t","r","e","w","q");

system(clear);
print "------------------------------------------\n";
print "=|Vodafone Sms Sender\n";
print "=|www.NoRegress.tk\n";
print "=|Venom's code|\n";
print "------------------------------------------\n";
print "°Da: ";
chomp($from1 = <STDIN>);
print "°A: ";
chomp($to = <STDIN>);
print "°Messaggio: ";
chomp($mex = <STDIN>);
print "------------------------------------------\n";

print "

* Connessione al server... \n";

$smtp = Net::SMTP->new("$prov", Hello => "provider", Timeout => 50) || die "[-]Socket error\n";
print "

* Connesso.\n";

$smtp->mail("$from") || die "[-]Indirizzo di origine non valido\n";
$smtp->to("$to".'@sms.vodafone.it') || die "[-]Destinazione non valida\n";
print "

* Invio...\n";

$smtp->data();
$smtp->datasend("Message-ID: $in\n");
$smtp->datasend("From: $from1 $from\n");
$smtp->datasend("To: $to".'@sms.vodafone.it');
$smtp->datasend("\nMime-Version: 1.0\n\n");
$smtp->datasend("$mex");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
print "

* Sms inviato.\n";

print "------------------------------------------\n";