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