use meinpaket;

if ($irgendwas)
{ 
  my $datei = meinpaket->new('file'=>'bla.txt');
  my $einpaarzeilen = $datei->get(4,7,8);
  $datei->set('5'=>'Neue fünfte Zeile');
}