Because it is so easy to synthesis?:

sub remove {
    my $path = shift;
    if(    -f $path ) { unlink $path; }
    elsif( -d $path ) { rmdir  $path }
    else{ die "Dunno what to do with $path?" }
}
[download]