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

use File::Find;

print "Files to be deleted: \n";
open ("file", "remove.txt") || die ("Could not open file. \n $!");

@text=<file>;
print(@text);
close("file");


my $dir = "/Downloads/png_files/";
find(\&wanted, $dir);

sub wanted {
	print $File::Find::name if -d
};