Beim ersten Beispiel ist ja gar nicht klar, was $com1 und $ser1 ist. Das wäre Dir mit use strict und use warnings aufgefallen.

Beim zweiten Beispiel ist mir nicht ganz klar, was lpt1.pl sein soll.

Kannst Du beim nächsten Mal bitte die [code]-Tags verwenden??