use File::Spec;

$datasource=$ENV{'datasource'};

# hole die Einträge
opendir(DIR, "$datasource");
my @inhalt = readdir(DIR);
closedir DIR;

# für jeden Eintrag
for my $entry ( @inhalt ) {

    # setze den vollständigen Pfad zusammen
    my $path = File::Spec->catfile( $datasource, $entry );

    # verzeichnisse sollen nicht gelöscht werden
    next if -d $path;

    # lösche Eintrag
    unlink $path;
}