#!/usr/bin/perl -w

use strict;

my $mode = shift;
my @lines = <>;
my $it = '';

if( $mode ) {
  $it = join '', @lines;
} else {
  $it .= $_ foreach( @lines );
}

#print $it;

print STDERR (times)[0], " seconds\n";

exit 0;