open( PORT, "+>/dev/S01/" or die "Can't open S01: $!"; #linux mode
open( PORT, "+>COM1" ) or die "Can't open COM1: $!"; #Windows mode