#!/usr/bin/perl

use strict;
use warnings;
use Verilog::Netlist;

# prepare netlist
my $nl = new Verilog::Netlist();
$nl->read_file(filename => './soc.post.PG.simple.v');

# read in any sub modules
$nl->link();
$nl->lint();
$nl->exit_if_error();

my $module = $nl->find_module("soc");
$module->link();
$module->lint();
$module->exit_if_error();
print '*'.$module->name."*\n";