local *CAPTURE;
my $cmd = join " ", "perl", "script_name", @args);
open (CAPTURE,  "$cmd |") or die "Cannot run command $cmd: $!";