#!/usr/bin/env perl
use utf8;
###############################################################################
# This program prints an input stream with line numbers prefixed to each line.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use Utils;
use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    my $line;
    my $line_number = 1;
    while ($line = <STDIN>) {
        $line = Utils::rtrim($line);
        print Utils::messageFormat("\{0:5d\}: \{1:s\}", $line_number, $line), "\n";
        ++$line_number;
    }
}