1 #!/usr/bin/perl
2 
3 # Read the list of files in the current directory and convert the names to
4 # their full path specification. Don't use the shell or an external program
5 # to get the current directory. The File::Spec and Cwd modules, both of which
6 # come with Perl, should help. Print each path with four spaces before it and
7 # a newline after it.
8 
9 use v5.24;
10 use warnings;
11 use strict;
12 use utf8;
13 use File::Spec;
14 use Cwd;
15 
16 my $dir = getcwd();
17 opendir my $dh, $dir or die "Unable to read current directory: $!";
18 foreach (readdir($dh)) {
19 	if ($_ eq "." || $_ eq "..") {
20 		next;
21 	}
22 	printf("    %s\n", File::Spec->catfile($dir, $_));
23 }