#!/usr/bin/perl

$level = shift;

print "caffeine level: [";
print "*" x ($level % 11);
print " " x (10 - ($level % 11));
print "]\n";