#!/usr/bin/env perl use strict; use warnings; use FindBin; use lib "$FindBin::Bin/lib"; use Gears::Util; my $interface_file = shift or die "require itnerface file"; my $h2context = Gears::Util->parse_interface($interface_file); my $context = Gears::Util->h2context_str($h2context); print "$context";