use POSIX 'ceil';

sub tape_label {
    my $len = 5 * ceil(shift() / 5);

    my $l1 = join "", map { sprintf "%-10s", $_*10 } 0 .. ($len/10);
    my $l2 = "|" . ("....|" x ($len/5));

    return "$l1\n$l2\n";
}