Not a perl solution, but serpipe lets you use a pty/tty pair as a pseudo serial port. Run 'serpipe /tmp/foo /dev/ptyp1' and it will relay data between the pipe at /tmp/foo and /dev/ttyp1.