my @arr;
if ( -d $ARGV[0] ) {
  my $dir = shift @ARGV;
  @arr = map { "$dir/$_" } @ARGV;
}
else {
  @arr = @ARGV;
}

##</code><code>##

for ( @arr ) {
  if ( -d $_ ) {
    print "nice try - I cannot unlink directories\n";
    next;
  }
  unlink $_;
}