Select Code to Download

#!perl
use strict;
...
  my ($msg) = grep /Drive/, capture($cmd);
  return ($msg =~ /Drive (.*) is now connected/);
}