#!/usr/bin/perl

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

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