programming-examples/perl/SystemFunction/Shell command- dir.pl

use Shell;

$dir = dir();

print $dir;