use Shell::POSIX::Select qw($Heading $Prompt);
use Config::Crontab;

$modcron = 1;

if (defined($modcron)) {
   modifycron();
   exit;
}

sub modifycron {

  $Heading="\n            Pick an Option\n\n";
  $Prompt="Enter selection: ";

   select ('Display','Activate') {
     if ( $Reply == 1 ) {
        $ct = new Config::Crontab; $ct->read; print $ct->dump;
     } elsif ($Reply == 2) {
      $ct = new Config::Crontab; $ct->read;
      $block = $ct->block($ct->select(-command_re => "key=");

   }
}