my $still_testing = 1;
my $talkative     = 1;

foreach my $to_delete (@liberation_pool)
{
     print "Deleting $to_delete\n" if $talkative;
     unlink ($to_delete) unless $still_testing;
}