Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...

my $files = [glob('*')];
print "@{$files}\n";
  2. or download this
    #!/usr/bin/perl
use strict;
...
}

print Dumper(\%files);