Select Code to Download

my @diskline=`grep DISKBUSY $nmondir/$files_by_date{$date} | grep -v B
+usy`;
foreach my $line (@diskline) {
...
   $mem_by_date{$date}[0]=join ',', $mem_by_date{$date}[0],$rused;
   $mem_by_date{$date}[1]=join ',', $mem_by_date{$date}[1],$mused;
}

sub process (&$;$) {
  my ($code, $cmd, $skipfields) = @_;
...
   }
}
q{grep ^MEM, $nmondir/$files_by_date{$date} | grep -v Memory};

sub joiny {
  my ($ref, $thing) = @_;
...
   }
}
q{grep ^MEM, $nmondir/$files_by_date{$date} | grep -v Memory};