#!/usr/bin/perl
use strict;
use warnings;

#variable
my $fecha=system("date +%Y'_'%m'_'%d");
my $dumpdir=system("/home/cafe");

opendir(FILES, "< $dumpdir") || die;
 while(readdir FILES)
        {
        print <FILES>;
        }
        closedir FILES;

#final del script