sub mtime {
   my ($file, $option) = @_;

   return undef unless -e $file;
   
   my $mtime = time - (stat $file)[9];
   my $retval = undef;

   $option = lc($option || '');
   if($option eq "time") {
      my $fmt = 'sek';
      my $tmstr = $mtime % 60;
      if($mtime / 60 >= 1) {
         $fmt = 'min';
         $tmstr = ($mtime / 60 % 60) . ':' . $tmstr;
         if($mtime / 3600 >= 1) {
            $fmt = 'hour';
            $tmstr = ($mtime / 3600 % 60) . ':' . $tmstr;
         }
      }
      $retval = "$timestr $fmt";
   } elsif($option eq "date") {
      $retval = scalar localtime $mtime;
   } else { # es gibt immer einen else fall
      warn "Unknown option '$option'.";
   }

   return $retval;
}