#!/usr/bin/perl -w

use strict;
use FileHandle();
use POSIX qw(locale_h strftime);

BEGIN {
     unshift(@INC,"/pfad/zur/cpan/lib/");
}
use HTML::Entities;
# alternativ use HTML::Entities "/pfad/zur/cpan/lib/";

my $cmd="touch /pfad/zu/einer/datei";
my $out = `$cmd`;