Select Code to Download

#!/usr/bin/perl

use strict;
...
use IPC::System::Simple qw(capture);

my @output = capture("ls", "/root/Desktop");

#!/usr/bin/perl

...

my @output = capture("ls", "/root/Desktop");
print @output, "\n";