Select Code to Download

common code;
 include $ARGV[0].code;
more common code;

if ( m/(\S+),(\S+),(\S+),(\S+),(\S+),(\S+)/o )
  {
...
  $price         = $fields[4];
  $salesdate     = $fields[5];
  }