Código Perl:
Ver originalopen my $FICHERO, "</etc/awstats/web/$file" or do {
print colored
(" [ERROR] >>> No existe el fichero introducido ",'bold red'); print "$file", colored
(" en /etc/awstats/web/",'bold red'),"\n\n"; };
Código Perl:
Ver originalopen my $FICHERO, "</etc/awstats/web/$file" colored(" [ERROR] >>> No existe el fichero introducido ",'bold red')
. color('reset')
. "$file"
. colored(" en /etc/awstats/web/",'bold red')
. "\n\n"
;
Hay varias formas...