How to run Linux Command Using Perl?

Method 1:

@a=print readpipe( "ls -l  *" );
print @a;

Method 2:

@a=print system( "ls -l  *" );

print @a;

Method 3:

open(my $file, '|-', "ls -l  *.txt");

print $file;

Method 4:

@a=`ls -l *`;

print "$a[3]";

Method 5:

@a=qx/ls -l  */;

print "$a[0]";

Method 6:[execute exec at last]

exec(" ls -l  *");