my $per = "ls $dir";
eval($per) or $var =1;

if($var){
     //statement