use strict;
use warnings;
use Getopt::Long;
use Cwd qw(abs_path);
use Data::Dumper qw(Dumper);
BEGIN {
	my @script_path_dirs = split('/',abs_path($0));
	pop(@script_path_dirs);
	my $script_path = join('/',@script_path_dirs);
	# use lib $script_path;
	unshift @INC, $script_path;
}
use Voltrace;