if (@ARGV) {
  #если переданы аргументы, значит скрипт был
  #вызван GSM-шлюзом на пришедшее сообщение
  #при подключении файла через require @ARGV
  #будет пустым и этот блок кода выполняться
  #не будет, а использоваться будут только функции
}

sub func1 {
  ...
}
sub func2 {
  ...
}
...

#proc1.pl

if (@ARGV) {
  #скрипт запущен вручную, используются переданные аргументы
  $param1 = shift;
  $param2 = shift;
} else {
  #скрипт подключен через require, аргументы в глобальной переменной
  $param1 = $global{'param1'};
  $param2 = $global{'param2'};
}

$::ARG =
{
	'phone'=>$phone,
	'command'=>$rcmd,
	'text'=>$text,
};
my $time = time;
$ret = do($rsub); # код в файле $rsub возвращает либо число, либо хеш {'code'=>returncode, 'message'=>returntext}
$val = $@||0;
$duration = time - $time;
if ($ret)
{
	if (ref($ret) eq "HASH")
	{
		$rc->{'return'} = "Запрос обработан";
		$rc->{'data'} = $ret->{'message'};
		$rc->{'response'} = $ret->{'response'};
	}
	else
	{
		$rc->{'return'} = "Запрос обработан";
		$rc->{'data'} = "Код возврата $ret";
	}
}
else
{
	$rc->{'return'} = "Ошибка обработки";
	$rc->{'data'} = $val;
}
$::ARG = undef;