1 #!/usr/bin/perl
2 
3 # Make a program that uses stacked file test operators to list all
4 # files named on the command line that are readable, writable, and
5 # owned by you.
6 
7 use v5.24;
8 use warnings;
9 use strict;
10 use utf8;
11 
12 foreach (@ARGV) {
13 	if (-o -w -r -e) {
14 		say;
15 	}
16 }