#!/usr/bin/perl
# a.pl 

use strict;
use warnings;

system("ls -lrt > /tmp/a.out");