Select Code to Download

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

  perl  name_of_test_script

perl -V

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