use strict;

if($#ARGV ne 2)
  {
  die "usage: schnipp.pl <datei> <Zeilen oben> <Zeilen unten>\n";
  }
my $file = $ARGV[0];
my $start = $ARGV[1];
my $fin = $ARGV[2];

my @lines = ();

open DAT, "<", $file || die "cannot open $file: $!";
@lines = <DAT>;
close DAT;

open DAT, ">", $file || die "cannot open $file: $!";
for my $i ($start..$#lines-$fin)
  { print DAT $lines[$i]; }
close DAT;