Select Code to Download

INV 1 2
BUF 5 8
AND 1 3 4
INPUT 1 5
OUTPUT 2 8

#Logic Gates Routines
$t=0;
...
print "@net \r\n";
print "@gate \r\n";
exit 0;

 open(DAT, $data_file) || die("Could not open file!");
 @raw_data=<DAT>; 
...
join(",",@net);
print "The net array is @net \r\n";
print "The gate array is @gate \r\n";