./SaveCMD "ls | perl -lne 'print $_ if /-/'"

--SaveCMD--
#!/usr/bin/perl

use strict;
open(OUT, ">>", "cmd-out") || die "$!";
print OUT "cmd: $ARGV[0] \n";
my $cmd = $ARGV[0];
print STDERR $cmd;
my $out = qx($cmd);
print OUT $out;
close OUT;