#!/usr/bin/perl
use strict; use warnings;
use File::Basename;
use File::Spec::Functions;
my $dir = pop @ARGV;
for (@ARGV) {
	my $path = catfile($dir, basename($_));
	unlink $path or warn "unlink failed: $path\n";
}
rmdir $dir;