#!/usr/bin/perl
use strict;
use warnings;
my $CFG;
open ($CFG,"<config.cfg") or die "Cannot open config file: $!";
while (<$CFG>) {
if (($_ =~ /^\!/)){
next;
} else {
my $string = $_;
chomp $string;
unlink $string;
}
}