#!usr/bin/perl

use strict;
use warnings;

my $cmd = qx("ls -l");
print "$cmd";