#!/usr/bin/perl

use warnings;
use strict;
use Getopt::Long;

our $HISTOGRAM_HEIGHT;
our $HISTOGRAM_WIDTH;
our $HISTOGRAM_CHAR;

GetOptions(
	'h=i' => \$HISTOGRAM_HEIGHT,
	'w=i' => \$HISTOGRAM_WIDTH,
	'c=s' => \$HISTOGRAM_CHAR,
);

my $histfile = shift;

require $histfile;

print histogram(@ARGV)