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

##</code><code>##

C:\perl\practice>perl -d ref1.pl

Loading DB routines from perl5db.pl version 1.33
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main::(ref1.pl:5):      my $array = [`DIR`];

  DB<1> l
5==>    my $array = [`DIR`];
6:      print "@{$array}\n";

  DB<1> s 
##</code><code>##

main::(ref1.pl:6):      print "@{$array}\n";
 
  DB<1> s
main::(ref1.pl:6):      print "@{$array}\n";

  DB<1> s
 Volume in drive C is PC COE
  Volume Serial Number is 2EB6-FC84

  Directory of C:\perl\practice

 12/11/2011  12:39 AM    <DIR>          .
 12/11/2011  12:39 AM    <DIR>          ..
 12/09/2011  12:27 AM               303 each.pl
 12/09/2011  12:16 AM               271 hashcolor.pl
 12/10/2011  01:31 PM               468 Perl-1.pl
 12/10/2011  02:13 PM               534 Perl-2.pl
 12/10/2011  05:28 PM               223 Perl-4.pl
 12/09/2011  12:34 AM               301 Perl-5.pl
 12/11/2011  12:39 AM               112 ref1.pl
                7 File(s)          2,212 bytes
                2 Dir(s)  445,457,670,144 bytes free

Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.

  DB<1> s
Use `q' to quit or `R' to restart.  `h q' for details.

  DB<1> q

C:\perl\practice>