#!/usr/bin/perl 

use Shell;

$sh = Shell->new;
print $sh->ls("-l ./logs/ |grep -v "^d" |grep -v file1 | awk 'NR>1 { print \$9}'");