#! /usr/bin/perl -w

use strict;
$| = 1;
while(my $line = <STDIN>) {
  print("$ARGV[0]:\t$line");
}