#!/usr/bin/perl

use strict;
use warnings;

open(FH,"test.txt") or die $!;
while(<FH>){
  methode();
}
close FH;

sub methode{
  open(FH,"test2.txt") or die $!;
  close FH;
}