Hola, necesito ayuda, tengo los siguientes scripts:
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
print "llama \n";
print "system (qq(perl 'whilep.pl')) \n";
system (qq(perl "whilep.pl"));
print "vuelve \n";
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Proc::Daemon; #Para correr script como demonio
Proc::Daemon::Init; #Para correr script como demonio
our $config = do 'while.cfg';
our $wor = $config->{'wor'};
our $PRUEB = "$wor/while.tmp";
open (PRUEB,">$PRUEB");
print PRUEB "algo \n";
close PRUEB;
Mi problema ...