#!/usr/bin/perl

use strict;
use warnings;

my $len = $ARGV[0];
my $cur = 10;

print "|---+----";
while ($cur < $len) {
    my $prn = $cur % 100 ? $cur % 100 : $cur;
    my $sep = substr "|----+----", length($prn);
    print $prn, $sep;
    $cur += 10;
}
print "|\n";