my $offset = tell STDIN;
while ( my $line = <STDIN> ) {
    print "[$offset] $line";
}
continue {
    $offset = tell STDIN;
}