#!/usr/bin/perl
use strict;
use Config::Crontab;
# use Rex::Commands::Cron;
use Data::Show;
my $ct = new Config::Crontab; 
$ct->read;
$_->active(0) for $ct->select(-command_re => '/usr/bin/perl /home/sites/dmadelivers.com/www-dev/cgi-bin/ftp.bp.pl');
$ct->write;

1;