#! /bin/perl -sw

####################################################
# Copyright (C) 2000 Greg London
# All Rights Reserved.
####################################################

use Hardware::Verilog::Hierarchy;
$parser = new Hardware::Verilog::Hierarchy;

# $::RD_TRACE = 1;
$::RD_WARN = undef;
$::RD_HINT = undef;

$parser->Filename(@ARGV);