How to forward message to another number

[K.Moeng]

Hello.
I would like to forward the messages that get recived by this programme and 
send them to a different number.
Now how do i do that without sending to the person who sent the message.

Say the number is 26771445566.

Plus how can i make sure that the message is not empty from the sender.
Here are examples of a sender 

Sender                 Time                                Message
26771445566         11:01-    12:00:00                Please send me a Pizza 
with extra cheece plus 2 cokes and a hot dog.

regards



#!/usr/bin/perl -w
use DBI;

$dsn= "dbi:mysql:db_pu:localhost";
my $user= "mysql";
my $password = "mysql123";
$dbh = DBI->connect($dsn,$user,$password);

##################################GET ARGS ##########################
$msg = $ARGV[1];
$source = $ARGV[0];

$msg =~ s/\"/' /ig;  

$time = localtime();
open (OUTFILE ,">>C:\\logs\\pu.txt");
print OUTFILE "$time\t$source\t$msg\n";
close(OUTFILE);

$found =1;
  {

 if ($found == 1)
  {

 $statement = "insert into t_main (time_in, cli, msg) values 
(now(),'$source','$msg')";
 $sth= $dbh->prepare("$statement");
 $sth->execute;
 $sth->finish;

 print "Thank you for sending your request. Give us 1 hour to process it. SAME 
DAY PULA ENERGY GAS DELIVERY.\n";
   }
  }
 $dbh->disconnect;