#!/usr/bin/perl
use strict;
use warnings;
use Log::Handler;

my $log = Log::Handler->new();

$log->add(
    screen => {
        maxlevel => "info",
    }
);

$log->add(
    file => {
        filename => "some.log",
        mode     => "trunc", # mit trunc wird die Datei jedesmal überschrieben
        maxlevel => "info",
    }
);

$log->info("Hello World!");
$log->info(`ls -al`);
$log->info($_) for `ls -al`; # oder so :-)