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

##</code><code>##

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