cleanup

sub copy_filter {

    ( my $filter ) = @_;

    # my $filter = "kyofilter_B";

    #my $destination = "/usr/libexec/cups/filter/";

    my $destination = "/usr/lib/cups/filter/";

    # $destination = "first/second/";

    if ( !-d $destination ) {

        my $dirs = eval { mkpath($destination) };

        die "Failed to create $destination $@\n" unless $dirs;