Select Code to Download

#!/usr/local/bin/perl -T
use strict;
...
   # Here in my real program I do some database stuff.
   print "ID: $id, Port: $port, Description: $description\n";
}

syntax error at ./vipatch.cgi line 237, near "( $id, $port, $descripti
+on ) = m#^\s*(\w+-\"

There is no previous '(' to match a ')' on line 237
237:         ( $id, $port, $description ) = m#^\s*(\w+-\w+)\s+(\w+/\d 
+...
...
268:         ( $id, $port, $description ) = m#^\s*(\w+-\w+)\s+(\w+/\d 
+...
                                        ^
398:    The logfile vipatch.cgi.LOG may contain useful information