open( PORT, "+>COM1") or die "Cant open COM1 - $!";

$msg="ls\n";

print PORT $msg;