#!/usr/bin/perl use warnings; use strict; print "Creating new directory\n"; my $newdir = 'newdir'; mkdir $newdir or die "Cannot create new directory '$newdir': $!"; chdir $newdir or die "Cannot chdir to '$newdir': $!"; print "Creating new files:\n"; my @filenames = ('apple.txt', 'celery.txt', 'banana.txt'); for my $filename (@filenames) { open FH, ">", $filename or die "Cannot create new file '$filename': $!"; print FH "This is $filename\n"; close FH or die "Error closing $filename: $!"; print " * $filename\n"; } print "\nPlain 'ls':\n".`ls`; print "\n'ls -U':\n".`ls -U`; print "\nPerl's readdir:\n"; opendir DH, "." or die "Cannot opendir '.': $!"; for my $filename (readdir DH) { print "$filename\n"; } closedir DH or die "Error from closedir: $!"; print "\nRemoving files\n"; for my $filename (@filenames) { unlink $filename or die "Could not unlink '$filename': $!"; } print "Removing directory\n"; chdir ".." or die "Cannot chdir to '..': $!"; rmdir $newdir or die "Cannot rmdir '$newdir': $!";