Implement reading from stdin

pae2xml.pl

@@ -553,12 +553,15 @@ Error: $msg\n";
 
 sub read_file {
   my ($fn) = @_;
-  if (!(open FH, $fn))
-    {
+  my $res = "";
+  if ($fn eq "-") {
+      while (<STDIN>) { $res .= $_; } # read all lines
+  } else {
+    if (!(open FH, $fn)) {
       return "";
     }
-  my $res = "";
-  while (<FH>) { $res .= $_; } # read all lines
-  close (FH);
+    while (<FH>) { $res .= $_; } # read all lines
+    close (FH);
+  }
   return $res;
 }