#!/usr/local/bin/perl
$a=eval('ls'); print "$a"