#!/usr/bin/perl
use warnings;
use strict;
#My First Reference called ref1.pl!!
my $array = [`DIR`];
print "@{$array}\n";