Re: running a perl file from within a perl file

[ikegami]

my @cmd = ($filename, 'com1@115200', '65');
system({ $cmd[0] } @cmd) == 0
    or die("system @cmd failed: $?\n")

or

my @cmd = ($^X, $filename, 'com1@115200', '65');
system({ $cmd[0] } @cmd) == 0
    or die("system @cmd failed: $?\n")