#!/usr/bin/perl
use warnings;
my $cmd = "ls -ltr | wc -l";
open (CCCC, "$cmd |") || die "Failed: $! \n";
close CCCC;