# 813119.pl:
my @args=(0);
my $ filename = "ABC.pl";
@args = ("$filename com1@115200 65");
system(@args) == 0 or die "system @args failed: $?";

##</code><code>##

# ABC.pl:
print join( ' / ', @ARGV), "\n";

##</code><code>##

com1 / 65

##</code><code>##

@args = ("$filename com1\@115200 65");

##</code><code>##

com1@115200 / 65