#!/usr/bin/perl --
use strict;
use warnings;
use File::Spec;
use File::Temp qw' tempdir ';
use Shell::Command qw' touch ';

Main( @ARGV );
exit( 0 );

sub Main {
    my $dir = tempdir( CLEANUP => 1 );
    chdir $dir or die "Can't chdir('$dir'): $!";
    touch(1,2);
    Dunlink(1,2,3);
    chdir File::Spec->updir(); # for CLEANUP to work
}

sub Dunlink {
    use Carp qw' carp ';
    for my $file ( @_ ){
        unlink $file or carp "Can't unlink('$file'): $!";
    }
}
__END__
Can't unlink('3'): No such file or directory at - line 21
        main::Dunlink(1, 2, 3) called at - line 14
        main::Main() called at - line 7
[download]