IPC::вывод данных в дочерный процесс 0

Хотелось бы имя машин, логин и все такое, которое находится в первой части программ, чтобы отправлялось по e-mail, чий-то код находится в конце программой

Результат кода дает: » '-' is not recognized as an internal or external command operable program or batch file»

========================================

#!c:\Perl\bin\perl.exe

print «\n»;

print «\n»;

use Sys::Hostname;

$hostname = hostname();

print «=» x 16, $hostname,«=» x 16 ,«\n»;

use Time::localtime;

$tm = localtime;

$tma = localtime;

printf(«%04d-%02d-%02d», $tm->year+1900, ($tm->mon)+1, $tm->mday);

printf(«\t\t\t\t\t%02d:%02d:%02d\n», $tma->hour, $tma->min, $tma->sec);

$gnadd = gethostbyaddr($iaddr,AF_INET);

print «\nLogon to: »,getlogin;

print «\nMachine name: »,$gnadd, «\n»;

use Net::SMTP;

use Sys::Hostname;

$hostname = hostname();

if(open(CHILDHANDLE,«|-») { #эта строка сюда пишется или где-то выше

while () {

$smtp = Net::SMTP->new(’IP…’);

$smtp->mail(’mail…’);

$smtp->to(’mail…’);

$smtp->data();

$smtp->datasend(«From: $hostname»);

$smtp->datasend(«\n»);

$smtp->datasend(«To: Name…»);

$smtp->datasend(«\n»);

$smtp->datasend(«Subject: ….»);

$smtp->datasend(«\n»);

$smtp->datasend();

$smtp->dataend();

$smtp->quit;

close(CHILDHANDLE);

}