Поправить скрипт на Perl

Поправить скрипт Perl, а конкретно поменять смс сервис отправки смс с p1sms.ru на sms.ru

sub send_sms {
# main variables
my $num = shift; # Number to send SMS to.
my $msg = shift; # Message to send.
my $user = "***";
my $pass = "***";
my $from = "TEST";...