Select Code to Download

my @output = `./retrive 2301`;

my $cid="";
foreach (@output)
...
  { $cid=$1; 
  }
}

#!/usr/bin/perl
use strict;
...
  { $cid=$1; 
  }
}