Select Code to Download

$PortName = 'COM1';
$Baudrate = 9600;
...
    print $^E;
    exit
}

sub PowerDown {
    $Port->rts_active(0);
...
    undef $Port;
    exit
}

sub PowerDown {
    $Port->handshake('none');
...
    undef $Port;
    exit
}