$var = system('ls');
print "\n---\n $var \n---\n ";