#!/usr/bin/perl -w

use strict;

my $x=`ls a.a 2>&1`;
print "dollar x is $x\n";
print "***************\n";