#!/usr/bin/perl

use strict;
use warnings;

while(1) {
   {        
      no warnings;
      do "Uhu.pm";
   }
        
   print Uhu::uhu(),"\n";
    
   sleep(1);
}

package Uhu;

use strict;

sub uhu {
   "uhu2";
}

1;