sub banner {
  die "Not enough arguments to banner" unless @_;
  my $var = shift;

}