#!/afs/sipb/project/perldev/p -w

use strict;
use IO::File;
use IO::Pipe;
use POSIX;
use Fcntl ':flock';

my $after = shift(@ARGV);

print( scalar(<>) or die "Queue is broken (no lines)!\n" );

while (<>) {
  print $_ if substr($_,0,4) ge $after;
}