programming perl

ex12-3.pl

#!/usr/bin/perl
use strict;

print "Looking for my files that are both writable and executable\n";

die "No file specified\n" unless @ARGV;

my @myfile;

foreach my $file (@ARGV)
{
	print "$file is my file and writable and executable\n" if -o -r -w $file;
	push @myfile, $file;
}

die("No files") unless @ARGV;