Initial data commit

Task/Get-system-command-output/Perl/get-system-command-output-1.pl

@@ -0,0 +1,5 @@
+my @directories = grep { chomp; -d } `ls`;
+for (@directories) {
+chomp;
+...; # Operate on directories
+}

Task/Get-system-command-output/Perl/get-system-command-output-2.pl

@@ -0,0 +1,2 @@
+my $command = shift or die "No command supplied\n";
+my @output_and_errors = qx/$command 2>&1/ or die "Couldn't execute command\n";

Task/Get-system-command-output/Perl/get-system-command-output-3.pl

@@ -0,0 +1,7 @@
+use autodie;
+my $enc = ':encoding(UTF-8)';
+my $child_pid = open(my $pipe, "-|$enc", 'ls');
+while (<$pipe>) {
+  # Print all files whose names are all lowercase
+    print if m/[^A-Z]+/;
+}