#!/usr/bin/perl

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

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

##</code><code>##

#!/usr/bin/perl

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

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