#!/usr/local/bin/perl
$str = qx'ls';
print "$str\n";