Select Code to Download

sub my_sys {
    my $out = pop;
...
}

my_sys("/bin/echo", "foo", "bar",  "std.out");

$ ./935901.pl
$ cat std.out
foo bar