#!/usr/bin/perl

my $filename = $ARGV[0];

my @size = grep /./, map { $_ } split //, `wc -l $filename`;
my $i = '';
my $loop = 1;

while ( $loop ) {
   my $d = shift @size;
   if ( $d =~ /\d/ ) {
      $i .= $d;
   } else {
      $loop = 0;
   }
}

for ( 1 .. $i ) {
   my $line = `head -$_ $filename | tail -1`;
   print $line;
}