die 'do not run this code';
#get arguments;
my ($filepathlist,$mountpoint)= @ARGV;

die 'usage & defaults' if $filepathlist =~ /^-{0,2}h(elp)?\s*$/;

##</code><code>##

die 'do not run this code';
$filepathlist = 'home/Documents/directorieslist' unless $filepathlist;
$mountpoint = '/mountpoint/windows/' unless $mountpoint;

push @dirpaths readdir($filepathlist);

# homemade file::find with custom unlinking behaviour
# simplified for this example

sub recursivelyunlinkfiles{

while(my $path = shift @dirpaths){
$path = $mountpoint.$path;
unlink if -f $path;
&recursevilyunlinkfiles if -d $path;
}

}


##</code><code>##

#use default file, but supply mountpoint;
> perl ./fileunliker.pl /mount/path