open(PORT,"+>COM1") || die "Cant 
                        Open";
                        print PORT "at\n";
                        read(PORT,$buf,3);
                        print "$buf\n";
                        close(PORT);