Есть пакет в котором мне нужно вызвать внешний скрипт - при вызове функции пакета перл не ругается но результата отработки скрипта нету!!!

Что не так???
Неужели в пакете нельзя вызывать внешний скрипт? Пробовал через system - возвращает -1


Мой пакет:
 
package ServicePack;

sub MakeService
{
    @res = `/home/files/scripts/getdatetime.pl time`;
    return @res;
}

return 1;


вот скрипт  getdatetime.pl

#!/usr/bin/perl

sub get_datetime()
{
   my $param = shift;
   my $res;
   if ($param eq 'date')
   {
       ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
       $res = ($year+1900)."-".($mon+1)."-$mday";
   }
   else
   {
    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
    $res = "$hour:$min:$sec";
   }
   return $res;
}

$result = &get_datetime($_);
print $result;

а 
использовать нельзя?

дело оказалось не в этом - используя такой код:

unless ($return = do $file) 
{
        warn "couldn't parse $file: $@" if $@;
        warn "couldn't do $file: $!"    unless defined $return;
        warn "couldn't run $file"       unless $return;
}

обнаружил проблемы с правами которых раньше небыло видно теперь все ОК!

Спасибо