in reply to running a perl file from within a perl file

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

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

[download]

In Section Seekers of Perl Wisdom