Select Code to Download

my $call = `mminfo -r 'volume,state,written,%used,space,pool,location,
+ssinsert' -q 'ssinsert <= three week ago`;
foreach ($call) {
...
    print "not found\n ";
  }
}

my @calls = split /\r?\n/, `mminfo -r 'volume,state,written,%used,spac
+e,pool,location,ssinsert' -q 'ssinsert <= three week ago`;

...
    print "not found\n ";
  }
}

my $cmd = 'mminfo -r 'volume,state,written,%used,space,pool,location,s
+sinsert' -q 'ssinsert <= three week ago';

...
    print "not found\n ";
  }
}

  if (/Daily(\S+)\s/) {
    print "Daily true $1\n";
  }