open FILE, 'C:\Perl\Perl practice\test.txt' or die $!;

##</code><code>##

  perl  name_of_test_script

##</code><code>##

perl -V

##</code><code>##

perl -e 'opendir(D,"."); print join($/,readdir(D)),$/'